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VldNTERRUPT 


VIC-20 er en lidt 
gammeldags 
computer, men 
udnyttes den 
rigtigt har den 
masser af 
muligheder. 
Vores læser 
Rune Gunder- 
sen kommer i 
denne artikel 
ind på inter- 
rupts, og hvor¬ 
dan du define¬ 
rer funktions¬ 
tasterne på en 
smart måde. 


■ I denne artikel beskæftiger 
vi os med interrupt-program- 
mering på en almindelig 
VIC-20 uden udvidelser. For 
at tå forståelse ai denne arti¬ 
kel må man dog have et for¬ 
udgående kendskab til ma¬ 
skinkode programmering i 
6502-processoren, det ville 
være alt for omfattende at 
komme ind på det her. 
VIC-20's operativ-system er 
interruptstyret. Det vil sige, at 
60 gange i sekundet testes 
stopknappen, og systemuret 
forøges. Prøv for eksempel at 
skrive FORT= 1T03000:NEXT. 
Tryk på return og derefter 
nogle andre taster. Når FOR. 
NEXT sløjfen er færdig, vil de 
sidste indtastede bogstaver 
vise sig. Dette er fordi at 
VIC-20's keyboard også er in- 
terrupt styret. 

Interrupt vektoren ligger i ad¬ 


resserne 788 og 789. Hver 
0,016 sekund kigger 6502 pro¬ 
cessoren på disse steder og 
hopper til en rutine, angivet 
ved den mest betydende by¬ 
te (adrs./256) i lokalition 789, 
og den mindst betydende by¬ 
te i lokalition 788. 

Når man skal lave sin inter- 
rupt-rutine, må man først 
ændre værdien i disse posi¬ 
tioner til den adresse, hvor 
man har placeret sin egen in- 
terruptrutine. Inden dette må 
6502 have besked om, at den 
skal stoppe med at læse inter¬ 
rupt vektorerne (PEEK (788), 


PEEK(789)). Dette gøres med 
SEI(120). 

Når den nye adresse er lagt 
ind i interruptvektorerne, 
genstartes processoren med 
CLI(88). Tilsidst returneres til 
BASIC med RTS(96). Når dette 
er gjort, kan man gå i gang 
med sin egen interruptrutine. 
Den nye interrupt rutine må 
afsluttes med en JMP(76) til 
den gamle interrupt rutine 
dvs. 76,191(PEEK(788)), 234 
(PEEK(789)). 

Jeg vil nu vise det første eks¬ 
empel på en udnyttelse al in¬ 
terrupt vektorerne. 






10 DATO 120 : REM SEI // 

20 DATA 169,45 s REM LDA# 45 // 

30 DATA 141,20,3 :REM STA 788 // 

40 DATA 169,28 ;REM LDA# 28 // 

50 DATA 141,21,3 s REM STA 789 // 

70 DATA 88 :REM CLI // 

80 DATA 165,197 :REM LDA 197 // 

90 DATA 201,39 s REM CMP#39 // 

100 DATA 208,3 :REM ENE 3 // 

110 DATA 238,15,144 :REM INC 36879// 
120 DATA 76,191,234 :REM JMP 60095// 
130 DATA -1 

140 REftDA s IFA O -1THEN POKE 7200- 
150 SYS7200 
160 END 


INTERRUPT PAUSE 

LÆS DEN LAVE BYTE FOR ADRESSEN 

GEM I VEKTOR 788 

LÆS DEN HØJE BYTE FOR ADRESSEN 

GEM I VEKTOR 789 

FORSÆT INTERRUPT 

LÆS DEN NEDTRYKKEDE TAST 

ER F1 NEDTRYKKET . 

HVIS NEJ SÅ HOP 3 FREM yS 

POKE 36879, PEEK <36879)+! yf 

AFSLUT INTERRUPT 


Det ses at linie 20-50 sætter in- 
terrupt rutinen til adresse 
7213, lordi 

45+28*256=7213. 

Kør programmet og prøv at 
trykke på F1 så tit du vi*. Hvis 
programmet afbrydes af en 
R/S+RESTORE. skal du gen¬ 
starte interrupt-rutinen med 
SYS7200. 

Det kan være, du kan se de 
mange muligheder ved bmg 
af interrupt. Lad os nævne 
cursor styring med joystick, 
grafik, lyd og du kan sågar 
lave dine egne kommandoer 
ved hjælp af JSR115 
(CHRGOT). som henter næste 
BASIC karakter ind og under¬ 
søger den. 



20 DATA 165,197,174,141.2 
30 DATA 201,39,208,7 
40 DATA 224,1,240, 3 
50 DATA 238,15,144 
60 DATA 201,39,208,9 
70 DATA 224,1,208,5 
80 DATA 160,27,140,15,144 
90 DATA 201,47,208,9 
100 DATA 224,1,240,5 
110 DATA 160,255,140,138,2 
120 DATA 201,47,208,9 
130 DATA 224,1,208,5 
140 DATA 160,0,140,138,2 
150 DATA 201,55,208,9 
160 DATA 224,1,240,5 
170 DATA 160,100,140,40,3 
180 DATA 201,55,208,9 
190 DATA 224,1,208,5 
200 DATA 160,112,140,40,3 
210 DATA 201,63,208,9 
220 DATA 224,1,240,5 
230 DATA 160,200,140,7,3 
240 DATA 201,63,208,9 
250 DATA 224,1,208,5 
260 DATA 160,199,140,7,3 
270 DATA 76,191,234,-1 


REM A=PEEK;i97):X=PEEK<653> 

REM ER A=39: NEJ HOP +7 

REM ER X=1s JA HOP +3 

REM PEEK(36879)=PEEK<36879)+1 

REM ER A=39: NEJ HOP +9 

REM ER X=l: NEJ HOP +5 

REM y=27 s POKE 36879,y 

REM ER A=47:NEJ HOP+9 

REM ER X=1s JA HOP +5 

REM y=225: POKE 650, y 

REM ER A=47: NEJ HOP +9 

REM ER X=l: NEJ HOP +5 

REM y=0 s POKE 650, y 

REM ER A=55: NEJ HOP +9 

REM ER X=1sJA HOP +5 

REM y=100: POKE 808, y 

REM ER A=55s NEJ HOP +9 

REM ER X=l: NEJ HOP +5 

REM y=112: POKE 808,112 

REM ER A=63: NEJ HOP +9 

REM ER X=1: JA HOP +5 

REM y=200s POKE 775, y 

REM ER A=63: NEJ HOP +9 

REM ER X=l:NEJ HOP +5 

REM y=199s POKE 775, y 

REM END OF INTERRUPT 


. THEN POKE 7200+T,A:T=T+l:GOTO 280 



For at programmere specielle 
taster skal du bruge PEEK( 197) 
og undersøge hvilken tast der 
er nedtrykket. 

F1 =39, F3=47, F5=55, F7=63. 
Hvis F2, F4, F6 også skal defi¬ 
neres må du undersøge PEEK 
(653). Hvis denne lokation er 
lig 1 er SHIFT nedtrykket; hvis 
den er lig 2 er Commodore 
tasten nedtrykket. 

I det sidste eksempel viser jeg 
hvorledes PEEK(653) bruges 
for at undersøge om SHIFT ta¬ 
sten er nedtrykket. Efter pro¬ 
grammet er kørt vil F tasterne 
være defineret således: 

FI Giver en ny farve 
F2 Normal farve 
F3 Repeat af alle taster 
F4 Normal repetering 
F5 Udelukker brug af RS + 
RESTORE 

F6 Normal R/S+RESTORE 
F7 List stop 
F8 Normal listning 
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■ Holder du al Tusind-og-en- 
nat, hvor fakirer og andet 
godtfolk med sans for tilsløre¬ 
de kvinder og flyvende tæp¬ 
per udgør hovedpersonerne, 
vil du uden tvivl kunne lide 
Jinn Genie spillet fra Micro- 
mega. 

Her befinder du dig i den fjer¬ 
ne Orient, hvor du skal for¬ 
søge at nedkæmpe en gru¬ 
som bande, der truer med at 
overtage ledelsen i den gyld¬ 
ne by. 

Din første opgave lyder på at 
eliminere de flyvende djæv- 
le, som racer rundt om dit 
flyvende tæppe og forsøger 
at gøre det af med dig. 

Når du først frem til sultanens 
palads, hedder problemet at 
finde et vindue, der kan åb¬ 
nes. Men pas på. Vagterne er 
årvågne, og de kan kun 
skræmmes bort for en tid ved 
hjælp af alverdens forban¬ 
delser. 

Inde i paladset gælder det 
om at få tændt alle fakler for 
at skræmme mørkets væsner 


Grafik: 

Lyd: 

Action: 

Spænding: 

Pris/kvalitet: 


Eliten blandt 
helikoptere 

■ Elite's nye nit i England, 


■ Elite's nye nit i England, 
Airwolf, hører til den store 
gruppe af spil, hvor du skal 
flyve en helikopter eller et 
rumskib enten ude i rummet 
eller dybt under jorden. 
Airwolf foregår under jorden, 
men er så afgjort ikke som al¬ 
le andre. Elite har gjort meget 
for at gøre spillet bedre, og 
det er da også lykkedes gan¬ 
ske godt. Airwolf bygger i 
øvrigt som flere andre fra Elite 
på en amerikansk TV-serie. 
Som pilot i den ultradyre heli- 


bort. Har du fundet den magi¬ 
ske krukke og befriet den go¬ 
de hersker, er din opgave så¬ 
dan set klaret. Du har reddet 
den gyldne by mod under¬ 
gang. 

Forbryderne fik du imidlertid 
ikke has på. De flygtede lyn¬ 
hurtigt til næste oaseby, hvor 
du så kan genoptage be¬ 
kæmpelsen. 

Grafikken i Jinn Genie er 
meget flot og usædvanlig far¬ 
verig. Micromega har ramt 
atmosfæren fint, og spillet 
fængsler brugeren effektivt, 
når han/hun først er kommet 
i gang. 

Kort sagt. Jinn Genie er en 
udmærket måde at undslip¬ 
pe det grå og kedelige vinter¬ 
vejr i Danmark. Tænd for 
computeren og du befinder 
dig blandt smukke, mørklø- 
dede og mystiske haremsda¬ 
mer. (PCS).D 


kopter Airwolf er din opgave 
at befrie 5 vigtige viden- 
skabsmænd, der holdes fan¬ 
get dybt nede under Arizo- 
na's svedne ørken. 
Helikopteren skal trænge ned 
gennem et kompliceret for¬ 
svarsanlæg ved at destruere 
en række kontrolbokse pla¬ 
ceret rundt omkring i de un¬ 
derjordiske gange. Hver 
gang en boks skydes, åbnes 
der et andet sted mulighed 
for at du kan trænge videre 
ind i systemet. Efter en lang 
og krævende flyvning når du 
ned til den første videnskabs- 
mænd, der - ligesom de 4 
andre - først skal bringes sik- 



Break feber 


■ Som afveksling for de man¬ 
ge blodige krigsspil til compu¬ 
tere, er det ganske afslap¬ 
pende. når der ind imellem 
kommer danseprogrammer. 
Break Dance fra Epyx var det 
første spil udi de nyeste dan¬ 
setrin. Den netop udsendte 


Break Fever fra Interceptor 
følger i samme spor, men er 
langt fra så afvekslende og 
udfordrende som forbilledet. 
Til gengæld er lyden og mu¬ 
sikken mere breaked' hos In¬ 
terceptor. 

Grafikken i Break Fever er su- 
perflot, men du bliver des¬ 
værre hurtigt træt af begiven¬ 
hederne. Træt bliver din 
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kert hjem til basen, før du kan 
fortsætte mod den næste 
mand i rækken. 

Undervejs på din farefulde 
redningsmission møder du 
bl.a. hidsige lasere, kanoner, 
mure som skal nedskydes, før 
de automatisk fornyes, farlige 
radarer og sågar en UFO-lig- 
nende tingest. 

Airwolf kan i starten virke 
meget svært og kedeligt. Vi 
kan dog roligt betro læserne, 
at det sandelig ændres, så 
snart de første forhindringer 
overvindes. Bare vær lidt tål¬ 
modig. Grafikken er flot 
(modsat lyden), hvilket lige¬ 
frem får spilleren til at sidde 
tryllebundet ved skærmen, 
bare for at komme til at se det 
næste skærmbillede i syste¬ 
met. 

Det er da heller ikke uden 
grund, at Airwolf meget hur¬ 
tig er gået til tops på de en¬ 
gelske hit-lister. Godt gjort. Eli¬ 
te! (microdealer & PCS) 


Jagt langs 
flodlejet 


pedobåde, kanonkugler el- ninasounkter undervejs. De 
ler modstanderens overvåg- markeres automatisk på 
ningsfly. landskabet, der ses ovenpå 

Din vigtigste opgave er at af- gennem hele Hiver Raid. 
skære fjendens forsynings- Spillet er som helhed accep- 
tropper, der befinder sig på tabelt, men vi savner spæn- 
den ene flodbred. Den bedste ding og afveksling. (CBS).D 
måde at gøre det på er at 

smadre alle broer, du møder. Grafik: 8 

Men det kræver både omhu. Lyd: 8 

thi broerne er af forskellig Action: 7 

konstruktion og højde, og på- Spænding: 7 

passelighed, fordi dit jagerfly Pris/kvalitet: 8 

råder over en begrænset 
mængde brændstol. 

Optankning kan ske fra forsy- 


■ River Raid fra Activision 
giver ikke helt samme tota¬ 
ludnyttelse af 64'erens lyd og 
grafik, som vi ellers er for¬ 
vænt med fra Activisions si¬ 
de. Spillet er dog spændende 
nok, fordi det formidler en 
helt særegen atmosfære. 
Som pilot i en angrebsjager 
skal du suse langs flodbred¬ 
den i lav højde for at undgå 
fjendtlig radar': Undervejs ren¬ 
der du ustandseligt ind i for¬ 
hindringer. Det kan være 
spærreballoner, der er kom¬ 
met ud af kurs, krydsende tor- 


Grafik: 

Lyd: 

Betjening: 

Action: 
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Pas på 
sidevind 

■ Hvis du kunne lide Tornado 
Low Level vil du elske Cyclo- 
ne. Fra det øjeblik, du starter 
spillet, vil du kunne se, at det 
ligner sin forgænger meget. 
Denne gang hærges en lille 
øgruppe af en voldsom cy- 
clon. og din opgave er at 
samle medicinkasser og red¬ 
de de nødstedte, der vinker til 
dig fra en bakketop. 
Grafikken er - hvor utroligt 
det end lyder - endnu bedre 
end i berømte TLL. Bl.a. er 
kortet blevet betydeligt større, 
så nu tager det over et minut 
at flyve igennem fra nord til 
syd. 

Cyclone har 14 øer ialt, og på 
6 af dem er der baser, hvor 
du kan få fyldt tanken op. Det 
vigtigste mål er at finde alle 5 
medicinkasser, men for at få 
extra points skal du manøvre¬ 
re hen over flygtningene og 
hejse dem op i sikkerhed. 
Hold endelig godt øje med 
vindmåleren. Hvis du kom- 


breakdancer på skærmen 
også, og så falder han sam¬ 
men som en gammel klud. 
Hvilket får computeren til at 
kommentere "You is Bad 
News" i bedste Brooklyn-dia- 
lekt. 

I Break Fever kan du stille op 
i forskellige discipliner. Hvis 
du ikke kender betegnelser¬ 
ne i forvejen, lærer du dem 
hurtigt: Turtie, Backspin og til 
sidst Space Shuttle, hvor du 
skal få danseren til at dreje 
rundt på én finger. En ret så 
vanskelig opgave, der kræ¬ 
ver fuldstændig kontrol over 
joysticket. 

Som nævnt er lydsiden fin-fin, 
og Interceptor har haft den 
gode idé at lægge sound¬ 
tracket på den anden side af 
kassettebåndet. Det kan du 
så bruge, hvis du skal holde 
fest. - eller måske træne selv 
i breakdance. (Twilight).D 


Alt i alt er Cyclone et af de 
bedste på markedet og bør 
findes i enhver ægte spille¬ 
narkomans samling. (Twi- 
lightyO 

Grafik: i _ « 11 

Lyd: Mi 9 

Action: _9 

Spænding: <=«»*> n 11 

Pris/kvalitet: ** S 11 


mer for tæt på cyclonens 
centrum, bliver helikopteren 
kastet hid og did af de krafti¬ 
ge vindstød. 

Da medicinkasserne tit gem¬ 
mer sig bag en skrænt eller et 
hus er det nødvendigt at skif¬ 
te frem og tilbage mellem 2 
forskellige synsvinkler for ikke 
at overse noget. 
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■ Ocean Software er kendt 
for at lave gode programmer, 
og det seneste skud på stam¬ 
men er ingen undtagelse. 
Navnet er Match Day og spil¬ 
let placerer sig i kategorien 
sportsspil, nærmere betegnet 
fodboldspil. 

Match Day ligner meget "In¬ 
ternational Soccer" til Com- 
modore 64, som regnes for et 
af de bedste fodboldspil til 
hjemmecomputere. Faktisk 
er Match Day næsten lige så 
godt som dette, bortset fra 
grafikken, selvfølgelig. 




Ocean har indbygget mange 
faciliteter i programmet. Du 
kan vælge, om du spiller 
mod computeren (i så fald tre 
sværhedsgrader), mod en 
kammerat eller du kan end¬ 
da lade computeren spille 
mod sig selv(!). Ligeledes er 
det muligt at skifte spilletid, 
holdenes farver og meget an¬ 
det. En sjov detalje er, at du 
sammen med flere kamme¬ 
rater kan spille i en cuptume- 
ring med egne selvopfundne 
holdnavne. 

Når alt det ønskede er valgt 
via menuerne, kan kampen 
begynde. Først ses i bedste In¬ 
ternational Soccer-stil spiller¬ 
ne komme ind på banen for 


at tage opstilling på deres 
pladser. Banen ses i samme 
perspektiv som i fodboldkam¬ 
pene i fjernsynet - dvs. med 
tredimensionelle virkninger. 
På den modsatte banelæng¬ 
de ses en række tilskuerplad¬ 
ser. mens der oppe i højre 
hjørne findes ur, Holdenes 
navne og kampens stilling 
kan desuden ses nederst på 
skærmen. Spillerne virker ri¬ 
melig livagtige, selv om de 
dog er lidt små, og bolden 
giver også en skygge på den 
grønne græsplæne. Alt i alt 
er grafikken altså fin. 


Positionsspillet er helt i orden, 
og det ligner i det store hele 
en rigtig fodboldkamp. Dog 
skal det lige nævnes, at spil¬ 
leme efter vores mening er 
noget sløve i bevægelsen. De 
traver nærmest. 

Vi kan alligevel kun sige, at 
Match Day må virke meget 
attraktivt på enhver fodbold- 
og computerfan, f.eks. som 
en lille opkvikker i de lange 
perioder uden fodbold i fjern¬ 
synet. (microdealer) 


Det samme gælder compute¬ 
rens spil, når dén udfordres. 
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H Amstrad 
Adventure 


■ Andromeda ira Interceptor 
er et ganske vellykket Ad¬ 
venturespil til Amstrad. Spillet 
fylder ca. 40K, hvilket natur¬ 
ligt begrænser det ordforråd, 
maskinen reagerer på. Derfor 
vil spilleren i starten opleve 
svaret "kender ikke..." 
gang på gang. Fortvivl dog 
ikke. Efter lidt øvelse kommer 
Andromedas kvaliteter til fuld 
udfoldelse. 

I starten af spillet befinder 
man sig på patrulje et sted 
ude i universet. En radionød- 
melding indløber på rumfar¬ 
tøjets modtager, og nu gæl¬ 
der det om at finde de nød¬ 
stedte. 

Andromeda hører til den ny¬ 
este type Adventure spil. hvor 
der også indgår grafik. Nogle 
af de mystiske rum er udeluk¬ 
kende beskrevet med ord. 


mens landingspladsen er teg¬ 
net meget flot i farver på 
skærmen. 

Hele den væsentlige del af 
handlingen foregår i et 
uoverskueligt bygningskom¬ 
pleks, hvor man skal søge ef¬ 
ter de folk. der udsendte nød¬ 
signalerne. Er man på et tids¬ 
punkt nødt til at afbryde spil¬ 
let, kan man' save" sin posi¬ 
tion og status, - og starte fra 
samme punkt, når man må¬ 
ske senere får lyst og energi 
igen. 

Andromeda hører måske ik¬ 
ke til verdens mest spænden¬ 
de Adventurespil, men pro¬ 
grammet er udmærket gen¬ 
nemforklaret. Både voksne 
og børn kan lære nyt, når de 
skal kommunikere på en¬ 
gelsk med computeren.□ 


Spændende 

rumspil 


Grafik: 

Betjening: 

Spænding: 

Pris/kvalitet: 


På omslaget til Black Star står, 
at det ikke er »bare et nyt 
rumspil*, og med vanlig 
skepsis var vores første tanke 
- den er god med jer! Men 
nej - Black Star er anderle¬ 
des, ideen er fin. programmet 
hurtigt, grafikken overbevi¬ 
sende, lyden flot og betjenin¬ 
gen god. Her har program¬ 
møren ikke givet sit program 
frit, før det var helt færdigt. 
Du befinder dig i en galakse, 
som du kan få en plan over, 
ved at trykke på en tast. Du 
starter i et let forsvaret områ¬ 
der, (samt de militære), og 
flyver omkring. Mod dig kom¬ 
mer planeter og firkanter. 
Hvis du flyver ind i en planet, 
skifter billedet, og du befinder 
sig nu flyvende henover pla¬ 
netens overflade. Ved hjælp 
af et nyt kort, kan du finde 


planetens forsvarscenter, og 
bekrige det. Resultatet kan 
blive at du befrier planeten. 
Firkanterne kommer i grup¬ 
per på fire. Afhængig af hvil¬ 
ken du flyver igennem, vil du 
flytte dig rundt i galaksen. Er 
du kommet gennem firkan¬ 
ten, viser en tunnel sig. Den 
skal du igennem uden pro¬ 
blemer, for at det lykkes dig 
at skifte position i galaksen. 
Og det er svært for tunellen 
snor sig i alle retninger. 

Til slut et kort ord om instrukti¬ 
onen: Du kan få følgende 
hjælp i begyndelsen af spil¬ 
let: »Hvis det rør sig. så skyd 
det. Hvis ikke, så skyd det al¬ 
ligevel. Er det firkantet, så flyv 
igennem, og er du i tvivl, så 
læs instruktionshæftet!* 


Grafik: ■ 

Lyd: SPEC 

Betjening: I ™*** 
Action: -- -- - 

Fængslende: 
Pris/kvalitet: 
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Legetøj, der 
er farligt 


■ Jeg mener ikke at kunne 
huske, at mit gamle legetøj 
hjemme på førstesalen var 
decideret farligt at omgås. 
OK, dampmaskinen kunne 
da springe i luften og bolden 
fra fodboldspillet ryge med et 
brag op i synet på én, men at 
dukkerne skulle være ond¬ 
sindede og de grillstegte kyl¬ 
linger aggressive. Dét opleve¬ 
de jeg først, da Toy Bizarre fra 
Activision blev kørt ind på 
min computer. 

Spillet er mildest talt bizart. Du 
befinder dig nemlig på en 


fortryllet legetøjsfabrik, hvor 
du render ind i et mareridt, 
når kyllinger begynder at 
vrimle ud af gule balloner. Så 
gælder det om at få benene 
på nakken og ellers undgå 
Hefty Hilda, der absolut ikke 
lever op til navnet sødt duk¬ 
kebarn. 

Din eneste måde at overleve 
i Toy Bizarre er at udrydde 
balloner og kyllinger så hur¬ 
tigt som muligt. Du må afven¬ 
te det helt rigtige tidspunkt, så 
kyllingerne ikke bliver stegt 
møre på panden. Ellers bliver 
de helt umuligt at omgås. 
Hefty Hilda er jokeren i spillet. 
Hun er drillesyg som bare 
F. Hun har det bl.a. med 


at tænde for alle kontakter, 
så maskineriet går helt plan¬ 
løst i gang. Altså, - sørg for at 
få hende sendt op i legetøjs¬ 
himlen så kvikt som muligt. 
Grafikken i Toy Bizarre er an¬ 
derledes end sædvanligt, 
men på sin vis meget fascine¬ 
rende. Lyden følger Activisi- 
ons sædvanligt gennemar¬ 
bejdede linie. Ja og handlin¬ 
gen: Den er bare noget helt 
for sig selv. (CBS).D 


Grafik: 

Lyd: 

Action: 

Spænding: 

Pris/kvalitet: 





LEVEL 2: THE PITS CF PR1HEURL SLIHE 


Moderne 
love story 


■ I Mutant Monty fra Artic 
kommer du ud for den næ¬ 
sten klassiske opgave at red¬ 
de den smukke og letsindige 
heltinde. Men som sædvan¬ 
ligt kræver det sin mand at 
opnå den eftertragtede helte¬ 
titel. Din fornemste opgave er 
nemlig at finde rundt i 40 
rum. der hver for sig rummer 
de forunderligste eventyr. 

I hvert mm ligger fem-seks 
poser guld, som du er nødt til 


at slæbe med, indtil du finder 
din skønjomfru. Ellers har I 
nemlig ikke nogen startkapi¬ 
tal, hvis I skulle undslippe 
borgens dystre mure. 

Vi befinder os jo i det 20. år¬ 
hundrede, og så indbygger 
man selvfølgelig ikke gam¬ 
meldags riddere eller trold- 
mænd i et moderne spil. Nej, 
vores ven Monty skal klare 
helt anderledes skær. F.eks. 
skal han passe acceleratoren 
i et atomkraftværk og forsøge 
at kæmpe sig igennem et 
helvedesrum med en slimet 


Grafik: 

Lyd: 

Action: 

Spænding: 

Pris/kvalitet: 


Skraldemand 
alene i 
verden 


væske på alle sider. 
Grafikken i Mutant Monty 

vælter ikke en garvet spilan¬ 
melder af stolen. Lyden er 
heller ikke at råbe huna for. 
Faktisk synes vi, at den var di¬ 
rekte enerverende efter en ti¬ 
mes spil. Men OK. spilideen 
og variationen er udmærket i 
Mutant Monty. (pcs)D 


■ Skraldemænd lever livet 
farligt. De skal konstant passe 
på kantsten, glubske hunde, 
løbske biler og bananskræl¬ 
ler. Men det er intet imod de 
farer, du kan komme ud for, 
når du efter lang og tro tjene¬ 
ste udnævnes til "overskral¬ 
demand". 

Det er netop, hvad der sker i 
det nye Spectrum-spil Travel 
with Trashman. Det skal aflø¬ 
se den nok så velkendte 
Trashman, som længe lå højt 
på hitlisterne i England og 
Danmark. 

Forhistorien er, at vor helt 
skraldemanden har vist sig så 
dygtig i sit lokaldistrikt, at han 
nu får til opgave at rense he¬ 
le verden for affald. Det giver 
ham naturligvis fine chancer 
til at se spændende og frem¬ 
mede byer som turist, men 
hans foresatte er mere snedi¬ 
ge end han. Skraldemanden 
skal nemlig selv betale sine 
rejseudgifter ved at samle 
skrald. Ellers kommer han 
aldrig videre til næste turist¬ 
mål. 

Vores skraldemand kommer 
vidt omkring i Travel with 
Trashman. Han besøger 
Moskva, Paris, Jerusalem, 
Hong Kong, Madrid og en 
række eksotiske småbyer, 
hvor affaldet består af under¬ 
lige ting og sager. 

Travel with Trashman rum¬ 
mer som sin forgænger man¬ 
ge flotte billedvirkninger i 3-D. 
Undervejs kommer der 
ustandseligt jokes og kvikke 
bemærkninger, og lydsiden 
må i det hele taget betragtes 
som forbilledlig. En af spillets 
flotteste grafikker er et ver¬ 
denskort, hvor man selv kan 
se lille Danmark. 

Travel with Trashman er helt 
i klasse med de bedste arka¬ 
despil. Det kræver sin mand 
at klare opgaverne. Ellers 
bliver du stanget, deporteret, 
kørt ned, skambidt eller får 
alle tiders skideballe ned 
over hovedet. (Twilight).D 


Grafik: 

Lyd: 

Action: 

Spænding: 

Pris/kvalitet: 
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Gamblermania 


■ Dine hænder ryster. Hjertet 
banker. Koldsveden bryder 
[rem. Hænderne søger fe¬ 
brilsk i lommerne etter den 
næste smøg. Den må være 
der et eller andet sted. Du tø¬ 
ler. at alle andre kigger på 
dig. Stirrende øjne i spillebu¬ 
lens røgtyldte tusmørke. Du er 
grebet al manien. 

Med et spjæt vågner du op. 
Det er bælgmørkt omkring 
dig. Vækkeuret tikker ufortrø¬ 
dent, og du er badet i sved. 
Du kan ikke sove mere. Ma¬ 
nien har grebet dig. og du 
styrter tværs over det kolde 
gulv. Hen til din Commodore 
64. 

Start maskinen og et øjeblik 
etter lyset jackpot-spillet op 
på skærmen. Heldigvis har 
Bally ikke levet forgæves. Det 
er den eneste måde, du kan 
kurere din "gambler-mani" 
på. 

Programmet har med sine 10 
sprites og meget flotte grafik 
gjort dig afhængig. Prøv selv. 
hvis du tør. . . □ 

Steffen Biåunei 
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■ Du svæver over Manhat¬ 
tan i din Helldiver bombema¬ 
skine. Dit mål er at nedskyde 
de højeste skyskrabere, idet 
dine arbejdsgivere er For¬ 
eningen til Bekæmpelse at 
Højdeskræk. 

Det gælder om at bombe de 
højeste bygninger tørst, fordi 
dit fly konstant taber højde. 
Spillet kører både på en 16K 
og en 48K Spectrum.□ 

Christian Bømler 

































































































lø SYMBOL fiFTER 244 

2ø SYMBOL 244,13,31.31,63,63,127,127,127 
3ø SYMBOL 245,255, 255,255,255,255,255,255,253 
4ø SYMBOL 246,255,255,255,255,255,255, 255,255 
5ø SYMBOL 247,240,248,248,252,252,254,254,254 
6ø SYMBOL 248,63,63,63,255,191,191,191,63 
7ø SYMBOL 249,255,255,252,253,253,253,252,255 
8ø SYMBOL 25ø,255,255,63,191,191,191,63,255 
9ø SYMBOL 251,252,252,252,255,253,253,253,252 


3D-labyri 





73ø MOVE x ,y 

74ø DRflW x,-y, 2 

75ø NEXT x 

76ø GøSUB 99ø _ 

770 RETURN ff— 1| 

780 x=<32ø-SQR<t#løøøø>)*forte9n:y=x/32ø*2øø i 

79ø mur®-1 1 

8øø xbefore=<32ø-SQR<tbefore*løøøø>>*forte9n 
8iø MOVE xbefore,y , 

82ø DRRW x,y,2 / IBEBTOUlÆ jfe gSA 

830 DRflW x, —y , 2 

840 DRflW xbefore,-y,2 s *™"**-—■ ■ '■ ^ 

85ø MOVE x+4*forte9n,ø 

860 DRRW (32ø-SQR<<t- 1- 1*<t=ø>>#løøøø>>*forte9n,0,6 
^ 87ø z=lø-t-DRRWR -z*forte9n,zDRflWR z*forte9n,-z : DRAWR -z#forte9n,-z 
830 tbefore«t 

9øø x=<32ø-S6R< t* 1 øøøø ) )*f or te9n y =x/32ø*2øø Ikaf deTi'r skhlltTe^or \a 

\ 91ø mur=ø skat, aer er skjult i en stor la- 

92ø xbefore=<32ø-SQR< tbefore*løøøø) )*forte9n byrint. 

93ø FOR x2=xbefore TO x STEP -4*forte9n Labyrinten vil hele tiden blive 

94ø MOVE x2,x2x32ø#2øø tegnet tor dig, som om du stod 

950 DRRW x2, -x2/32ø*2øø, 2 inde j d en. Alts* i rigtig 3D. 

Hi Kore-t ™ ? “S* 

980 RETURN skatten på det kortest mulige 

990 LOCRTE 10,2 PEN 1 IF xretnin9=l THEN PRINT"ø" antal sekunder, det færreste 

løøø IF xretnin9=-l THEN PR I NT “V" antal kia od kortet og med så 

1 ^ y refer ' i r ' 9= 1 .T«N ^ " „ få buler i hovedet som muligt! 

løl RETURN PRINT S Du flytter ved hjælp at pileta- 

lø4ø MODE 1 steme °9 ki 99 er P* kortet 

1050 PR I NT 11 Du fandt skatten !!! " medK. 

1 ø6ø PR I NT " Du bru.9te "ti d/3øø" sek under. " Hvis du, før du trykker på en 

lø7ø PRINT PRINT :PRINT"o9"kort"k i9 Paa kortet. " piletast, trykker på et af talle- 

lø8ø PRINT- PRINT: PRINT"Du 9ik "bumP"9an9e ind i muren !" nofra 1 0 vilrinhpvmnprfin 

I ø9ø UH I LE I NKEV*= » " - WEND "f 

II øPi run sa mange sicncit i den pagcel- 

^ 1110 ERflSE a*, vaV.,waVDIM a*< v*2+1 >, va*<h, v >, watth+1, v+1) dende retning. Held og lyk- 
^ 112ø FOR x=ø TO h+1■watt x,ø>=1=wattx,v+1)=1=NEXT ke!D 

\ 113ø FØR x=ø TO v+1 watt ø, x )= 1 : watt h+1, x >= 1 NEXT Lars Christensen 

X 1140 q =0:Z=ø:a=INT( RHD*h >+1=watt a,1>=1:c=2 = r=a >s=1=M=3 = s1ut*0 
\ 1150 IF M=4 THEN 1250 

A I16ø IF NøT<M=l OR CM=2 AND wattr,s>*ø>> THEN 1190 
\ 1170 IF r=h THEN s=l-s*<s<>v> r=l ELSE r=r+l 

A 1180 IF wattr,s)=ø THEN 117ø 
\ 1190 IF watt r-1, s K >ø THEN m=4G0Tø 1150 

-\ 1200 IF watt r, s-1 >=ø THEN 1230 

121ø IF wattr+1, s )=ø THEN GøSUB 147ø:øN INT<RND*mx)+l GOTO 1340,1400,1410 
, 1220 GØSUB 14400N ok+1 GOTO 141ø,1348 

V 1230 IF watt.r+1, s)=ø THEN ON INT<RND*3>+l GOTO 134ø, 138ø, 14øø 
N 1240 GøSUB 14700N INT<RNDsfcmx>+l GOTO 1340,1380,1410 

125ø IF watt>,*-l >=»ø THEN 128ø 

— 1260 GøSUB 144ø:IF wattr+1,s>=ø THEN ON ok+1 GOTO 141ø,14øø 

V 127ø ON ok+1 GOTO 1410,1430 

\ 1280 IF wa«r+l,s)*0 THEN GøSUB 147ø:øN INKRND*MX>+l GOTO 138ø, 14øø, 1410 
129ø GøSUB 1440: øN ok+1 GOTO 1410,1380 
13øø IF slut THEN 1310 ELSE 1150 

1310 a*<1)=STRING*<h*2+l,"k") = FøR j=l TO v = a*<j*2>="k"+STRING*<h*2," "):a*<j*2+ 

_ >=a*< 1 ):FOR i = l Tø h ; IF" vVi<. i, J ><2 THEN filD*(a*CJ*2) 

V ,i*2+l,1 )«"k" 

\ 132ø IF va*X< i, i X>ø RND va.li(i,j)<>2 THEN MID*<a*( J*2+l), i*2,1 >=" " 

\ 1330 NEXT i, i ■■ x=a*2 = y=2 Posx=INSTR< a*< 25 >, " " ) = MID*< a.*< 25 >, Posx, 1 >="k" = GOTO 27ø 
134ø waX(r-1,s>=1=c=c+1=vaX<r-1,s >=2 = r=r-1 


136ø IF c=h*v+l THEN s 
1370 GOTO 1300 
138ø wa.X< r, s-1 >= 1: c=c+1 = va.X.C r, s-1 >= 1: s=s-1 = GOTO 135ø 
139ø c=c+1: vaAO, s-1 >= 1 : s=s-1 = GOTO 1350 
14øø wa5{< r+1, s >» 1 = c=c+1 = va.X< r, s )=2-< vaX< r, s >< >ø > ; r=r+1 : r 
1410 IF q * 1 THEN z= 1: IF vaX< r, s X >0 THEN va>.< r, s >=3 = q =ø 
r= 1 : S* 1 : m=2 ELSE wa’Xf r, s+1 >= 1 < c=c+1 = vaW r, s '>= 1 -2U va 
5£< r, s X >ø >: s=s+1: m=3: GOTO 1360 
1420 GOTO 13øø 
1430 m=l:GOTO 13øø 

1440 o=ø:IF s=v THEN IF z=l THEN o=l ELSE q=l ELSE IF w. 
. 1450 IF o=l THEN ok=l ELSE ok=INT<RND*2> 

' 1460 RETURN 

147R -x=2: IF zOl RND s=v THEN q=l =mx=3 
148ø IF waWr,s+l>=ø THEN mx=3 
149ø RETURN 

15øø PRINT USING"###"+CHR*< 13).ih*v-c.i :IF m=4 THEN 1258 
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Commodore 


■ Med dette synthesizerpro¬ 
gram til din Commodore 64 
kan du lave dine egne melo¬ 
dier eller lydellekter, og du 
kan selv indstille de vigtige 
parametre uden problemer. 
Ved at trykke RETURN én 
gang vil du kunne se, hvilke 
taster, du skal bruge tor at 
indstille de forskellige ting. 
Når der står F3 og F4 betyder 
det, at med F3 tælles op og 
med F4 tælles ned. 

Med tryk på RETURN én gang 
til vil du kunne se, at du kan 
spille i 2 oktaver, og hvordan 
de 2 oktaver ligger på tastatu¬ 
ret. Derfra kan du trykke en 
hvilken som helst tast for at 
komme tilbage til indstilnin- 
gen. God fornøjelse.□ 

Claus Ljunggien 


rock 












































































I "Jedy Attack" er du place¬ 
ret i kontrolrummet på et for¬ 
svarsværk på Jorden, hvor 
du skal holde øje med en 
lang række overvågnings¬ 
skærme. 

Det er helt skytrit og øverst på 
skærmen kan du se dværg¬ 
stjernen Bival og kæmpepla¬ 
neten Tratum. Pludselig kom¬ 
mer der et UFO-angreb, som 
du ikke når at opfange, før 
det har ramt din by. Men de 
næste har du chancer for at 
ramme, hvis du er dygtig. 
Spillet egner sig både til Spec¬ 
trum 16Kog48K. 

Per Christensen 






































































■ I programmet LINE WRITER 
kan du med tekstbehand¬ 
lingsprogrammet Vizawrite 16 
din MPS 802 printer til at skrive 
i den linjealstand, du ønsker. 
Indtast programmet og save 
det. Ved opstart spørg pro¬ 
grammet om linjeafstanden, 
hvor du kan vælge fra 1 til 
127. 

Elter dette skriver computeren 
et lille eksempel ud på printe¬ 
ren, s6 du kan se om alstan¬ 
den er rigtig. 

Endelig bliver du spurgt, om 
du vil loade Vizawrite eller 
stoppe. Hvis du vælger Vi¬ 
zawrite. lår du i programmet 
den ønskede linjeafstand.□ 
Peter Anker Jakobsen 


UNE WRITER 



PRINT" COMMODORE MPS 802 MATRIX PRINTER" 
PRINT" L INIE AFSTANDSPROGRAMlvER ING " 

INPUT ' æmMrWM AFSTANDSTAL < 1-127) ";AF 
IF AF<1 OR AF>127 THEN 130 
OPEN S,4,6!OPEN 1,4 
PRINT«6,CHR$< AF) 

FRINT«1,"DETTE ER LINIAFSTAND"AF 
PRINT«1,“DETTE ER LINIAFSTAND"AF 

iNPUT' aimniffiwm) er afstanden ok ";s$ 

IF S*="N" THEN CL0SE6SCL0SE1:GOTO 130 
IF S*<>"J" THEN 180 

input 1 seasseissHsias load vizawrite ";s* 

IF S*="N" THEN SYS64738 
IF S*< >"J" THEN 210 

PR I NT "SI SKIFT DISKETTE & TRYK RETURN" 

GET A*: IFA*< >CHR*< 13) THEN 250 
LOAD"VIZAWRITE 64",8,1:NEW 


Sortering 


Programmet er selvforklarende 




m 


immun 


'Shell sort rutine 

60000 ELEMENT AFST AND%*2''I NT (LQG< ELEMENT ANTALX)/L0G(2> >-l 
60010 ' 

60020 WHILE ELEMENT AFSTANDX>0 

60030 FOR TAELLER1X=1 TO ELEMENT ANTALX-ELEMENT AFSTANDX 

60040 FOR TAELLEP2X-TAELLER1X TO 1 STEP - ELEMENT AFSTANDX 

60050 IF N0EGLERf(TAELLER2X)>N0EGLER$(TAELLER2X+ELEMENT_AFSTANDX) 

THEN SWAP NOEGLERf(TAELLER2X).NOEGLERf(TAELLER2X+ELEMENT AFSTANDX) 
ELSE TAELLER2X-0 
60070 NEMT 

60080 NEXT 

60090 ELEMENT AFSTANDX*ELEMENT AFSTANDXS2 :'Heltalsdivision 

60100 WEND 

Elemehtatstanden har betydning tor, hvor effektivt (hurtigt) sorteringen 
foregSr. Hvis sorteringen startes med en ELEMENT_AFSTAND% pø mellem 
ELEMENT.ANTALX og ELEMENT.ANTALX/2, og startvtrdlen vælges soledes, at 
alle efterfølgende værdier er ulige, opnas det bedste resultat. Denne 
tilpasning sker i linje 60000. Er der f.eks. tale om 120 elementer, 
bliver første vÆrdi for ELEMENT_AFSTAND% Hg med 63, og de etterfdigende 
v-frdler bliver 31, 15, 7, 3 og 1. 
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Easy Data 


■ I dette databaseprogram 
kan du indlægge op til 1500 
navne og adresser på folk. 
Du kan også placere person¬ 
lige data på hver enkelt og 
søge på alle kriterier med 
undtagelse af de personlige 
data. Dem har du for dig selv. 
Programmet er opdelt i 2 
blokke og virker kun på dis¬ 
kette. indtast del 1, og save 


den med GOTO 100. Indtast 
nu del 2, og save med GOTO 
62000. 

Programmet fylder ca. 10 K 
og kan anvendes med MPS 
801. 802 og flere andre printe- 
re. I programmet er også ind¬ 
bygget dansk karaktersæt.□ 

Martin Bøjstrup 
Torben H. Rasmussen 


3100 I FX*«" li" THEN30000 REM S 
3110 IFXf-"irTHEN4øøøØREM S 
3120 00T03070 
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Razzia 


Racerbiler og pac-mænd er 
særdeles populære som 
computerspil, men Razzia er 
hverken ost eller biler i 
gængs forstand. Det er en helt 
ny kombination. 

Du skal styre en lille racerbil 
rundt i en labyrint med en ra¬ 
sende font samtidig med at 
du konstant risikerer at støde 
ind i den anden bil (pas på. 
den kører som en brækket 
arm). Turen koster buler, 
mens tlagene giver points. 
Når alle flag er samlet (og det 
skal gå stærkt, for du er ikke 
alene), kommer et lille skilt 
frem med teksten "WAY 
OUT". Det gælder nu om at 
nå frem til skiltet, inden det 
forsvinder, for at dukke op et 
andet sted på banen - stadig 
uden at ramle ind i den an¬ 
den bil ... Lyder det svært? - 
det er det! 

Der er mange forskellige ba¬ 
ner at komme igennem, in¬ 
den der uddeles bonus. På 
hver bane er der forskellige 
ting at samle, og flere points 
at tjene. Racerbilen styres 
med kun to knapper, en 
knap vil få bilen til at dreje til 
højre ved næste hjørne, og 
en knap vil få den til at dreje 
til venstre. 1, 2, 3,4, 5 drejer til 
venstre og 6, 7, 8, 9,0 drejer til 
højre. Det er på den måde 
muligt at bruge joysticks som 
bruger piletasterne, samtidig 
er det også muligt at bruge 
joysticks af Kempston-typen. 
Der er fire sværhedsgrader: 
LEARNER er den letteste. EASY 
og HARD er sværere og 
GRAND PRIX er meget svær. 
På nederste linie vises under 
hele spillet den aktuelle sco¬ 
re, antal liv der er tilbage, det 
niveau der spilles på (level) 
samt den hidtil højeste score 
(high-score). 

Indtastning: 

programmet består af to dele, 
et kort BASIC-program på fem 
linier og ca. 5K maskinkode. 
Det smarteste er at taste ma¬ 
skinkoden ind først, og der¬ 
næst de fem linier BASIC, efter 
denne opskrift. 


1) Tast CLEAR 27499 ENTER 
Det sikrer, at der er plads til 
maskinkoden, og at den ikke 
slettes ved et uheld, hvis der 
tastes for meget BASIC ind el. 
lign. 

2) Indtast en decimal-loader 
som vist, således at maskin¬ 
koden kan tastes direkte ind. 
Det lille program sørger for at 
poke de 4875 tal ind i compu¬ 
terens RAM-lager for adresse 
27500 til andresse 32375. For 
hver 10 bytes maskinkode, er 
der udskrevet et checksum, 
som skal passe med den der 
udskrives i loader-program- 
met. 

3) Når hele maskinkodede¬ 
len er tastet ind og fundet ior- 
den, kan decimal-loaderen 
slettes med NEW. Det er ikke 
farligt at bruge NEW her, da 
maskinkoden er beskyttet 
over RAMTOP efter CLEAR- 
kommandoen. 

4) Indtast nu de fem linier BA¬ 
SIC og skriv RUN 100 ENTER 
Programmet bliver nu savet 
på bånd i to dele, først den 
korte stump BASIC med nav- 
net"RAZZIA'' og dernæst den 
lange del maskinkode med 
navnet "WATT". 

Hvis alt er tastet korrekt ind 
skulle programmet nu virke 
som beskrevet, men det er 
desvæne ret sandsynligt at 
du har begået mindst en fejl i 
de omkring 8000 indtastnin¬ 
ger, og den ene fejl kan væ¬ 
re nok til at programmet ikke 
vil starte. Vær derfor meget 
omhyggelig med at teste 
checksummerne. 

Skulle det være nødvendigt 
at save maskinkoden, inden 
den er tastet ind, kan det gø¬ 
res med SAVE ' 'maskinkode'' 
CODE 27500,4875 ENTER 
Det kan loades igen med 
CLEAR 27499 ENTER 
LOAD" "CODEENTER 
Vi kan forsikre at den tid det 
tager, at taste programmet 
ind langt overskygges af den 
tid der kan bruges på at spil¬ 
le det. 


Rolf V. Østeigaaid 



29 PRINT A. 

39 LET MØ 

49 FOR !•• TO «+9« INPUT ‘DATA 

69 LET Ml 
-0 IF .>-3r- 
0 90 TO 2( 


70 IF «>*32973 TMEN STOP 


»'Idi POKE 1 .dl LET m»+PEEK i: 


BASIC TIL RAZIA (SKRIV 00T0 




10 CLEAR 27499: INK 7« PAPER 0: FLASH 9: BRIQHT 0: OVER 9: INVERSE 0: BORDER 0 


5.13« BEEP .1.18 

fCHRØ 14+CHRØ 16+CHRt 7+*UAIT'C00 



20 Soft Special 
















Soft Special 21 













































































22 Soft Special 






























































Pirate Fighter 


Med dette program kan du 
gøre livet surt for småpirater. 
Programmet kan nemlig 
lægge en autostartrutine for¬ 
an dine båndprogrammer. 
Desuden er RUNSTOP/RESTO- 
RE funktionen sat ud af drift, 
så snart programmet starter 
op. De udenlandske softwa¬ 
rehuse benytter sig i øvrigt af 
en lignende rutine til beskyt¬ 
telse af deres dyre program¬ 
mer. 

Du skal først save program¬ 


met, når du har indtastet det. 
Dernæst tekster du det for fejl. 
Når det hele virker, skal du i 
programmet indlæse dét 
program, du vil beskytte. Der¬ 
efter saver du en ny beskyttet 
kopi af dit program ned på et 
nyt bånd. 

Du vil automatisk få alle 
meddelelser om, hvad du 
skal gøre i hver del af pro¬ 
grammet . Egentlig forklaring 
er derfor unødvendig. 

Kristian Otosen 



lø REM * SOFTWflRE-BESKVTTELSE # \ ,'ir^r 

20 REM <C> KRISTIAN OTTØSEN 1983 

3ø REM TLF. 06-992362 l/TEl A 

4ø REM KJ // 

50 P0KE33281,0:PRINT"M" E7 / 

6ø PRINT" ,-i"; k/' 

7ø PRINT"I SOFTWflRE-BESKVTTELSE I"; K 

80 PRINT"I <C> KRISTIAN OTOSEN 1985 I"; t* 

9ø PRINT" 1 -K 

løø PRINT"M VENT!" /fe 

110 F0RX*49403T049477 : READDX J/m 

12ø POKEX,DX : A=A+DX : NEXT f fp 

130 IFR07570THENPRI NT" FEJL I DATA 1":END / £ V 

14ø F0RX*49664T049687 ; RERDDX ^ 

130 POKEX , DX : A=A+DX : NEXT 

160 IFAOl 1324THENPRINT"FEJL I DATA 2" END MB\ M 

170 F0RX=49888T049920 : RERDDX 

130 POKEX;DX : R*fl+DX•NEXT J VSAl 

190 I FAO 13332THENPRI NT" FEJL I DATA 3": END 7 

2øø F0RX=50000T050106 : READDX / VHlV 

210 POKEX; DX : R“fl+DX : NEXT / 

220 IF A026662THENPRI NT" FEJL I DATA 4": END f K l\ 

230 PRINT"WIKLARGøR ORIGINAL BARND 00 TRVK <RETURN>" / v LjJ* 

240 PQKE198; ø i 

25ø GETR$ : IFR$=" " THEN250 <1^ "ST 

26ø PRINT’TJISVS 50000«" = P0KE198; 2: P0KE631; 19 : P0KE632; 13 
270 REM ***** DATA 1 ***** 

280 DATA 141,0,192; 169; 87; 141,36,3,169,241,141,37,3,169,5,133,198, 169; 19,141 
290 DATA 119,2,169,82,141,120,2,169,85,141,121,2,169,78,141,122,2,169,13,141 
3øø DATA 123,2,169,225,141,40,3,142,1,192,162,ø,169,32,157,0,4,232,208,250 
310 DATA 173,0,192,174,1,192,76,87,241,0 
32ø REM ***** DATA 2 ***** 

330 DATA 162,224,189,0,194,32,210,255,232,208,247,169,0,133,198,32 
340 DATA 228,233,201,0,240,249,96,0 
350 REM ***** DATA 3 ***** 

36ø DATA 13,13,83,73,73,70,84,32,66,65,65,78,63,32,79,71,32,84,82,89,75,32 
370 DATA 60,82,69,84,85,82,78,62,32,13,0 
38ø REM ***** DATA 4 ***** 

390 DATA 169,1,170,168,32,186,255,169,0,32,189,255,169,0,32,213,255,32,0,194 
4øø DATA 162,0,189,65,3,157,0,196,232,208,247,162,0,189,0,193,157,16,196,232 
410 DATA 208,247,169,81,141,36,3,169,3,141,37,3,169,1,170,168,32,186,255,169 
420 DATA 255,162,0,160,196,32,189,255,169,36,133,251,169,3,133,252,169,251 
430 DATA 174,63,3,172,64,3,32,216,255,169,87,141,36,3,169,241,141,37,3,32,129 
44ø DATA 255,32,0,194,76,80,195,0 
450 END 
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Priksamler 

I dette spil til en standard 
VIC-20 skal du samle små 
prikker på skærmen uden at 
ramme de blokke, der også 
er på skærmen, da du vil dø 

<T\-" 

r -C®-®-© @ - ©W Jm, 

af dette. 

Rammer du siderne dør du 
' også. Spillet har indbygget 

instruktion. □ 

Kim Rahbæk Ahier 


Stopur 



■ Det er tit, man har brug tor 
at tage tid på en bestemt ting. 
Det kan t.eks. være. hvor 
lang tid man kan holde sig i 
lutten i flykampspil. eller hvor 
hurtig man er til at løse en 
krydsord. 

Med dette Spectrum program 
skaber du dit eget ur med 
indbygget stopursfunktion. Li¬ 
nierne 10. 20 og 30 nulstiller 
en indbygget tæller. I linie 
200 læser vi, hvor langt uret 
har tait 2 gange. Vi ønsker 
nemlig ikke at læse 3-bytes 
tælleren midt i et skift. □ 

Karsten Hansen 


1 REN LINIERNE 10-30 ANBRINGES 
DER HU0R TIDTAGNINGEN SKAL BL'GTNDE. 

3 REN LINIERNE 60-200 ANBRINGES DER H 
00R TIDTAGNINGEN SKAl slutte. 

5 REN ’BEEP’ R0UTINER UIL GØRE TIDTAG 
NI NGEN UKORREKT. 

10 POKE 23672,0 
20 POKE 23673,0 
30 POKE 23674,0 
40 FOR i = l TO 1000 
50 NEXT i 

60 GO SUB løø: PRINT INT Ca/60);" MINU 
T ; f "TER" AN0 INT Ca/60K>]J.“ "IlNT Ca- 
60*1NT Ca/60));“ SEKUNDER" 

70 STOP 

100 GO SUB 200: LET b=a: GO SUB 200: IF 
D>a TMEN LET a-b 
110 RETURN 

200 LET a=(PEEK 23674*65536*PEEK 23672* 
PEEK 23673*2565/50: RETURN 
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Morsetræner 


Kan du morsealfabetet? 

Hvis ikke, har du her chan¬ 
cen for at td oversat fra nor¬ 
malt sprog til morsekoder. 
Indtast blot ordet eller sætnin¬ 
gen, sd viser Spectrum koder¬ 
ne pd skærmen. 

Jens Ulrik Pedersen 
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Spøgelser på 
motorvejen 


■ For at dette spil kan arbej¬ 
de hurtigt og etlektivt på en 
Lambda datamat, er det 
skrevet helt i maskinkode. 
Kort lortalt er din opgave at 
styre din formel-1 racer uden 
om de spøgelser, der dukker 
op. Ofte er spøgelserne i flok, 
så pas på, at du ikke pludse¬ 
lig er omringet af dem! 

Inden programmet tastes ind, 
bruger du følgende lille Hex- 
loader 

Når programmet er på plads, 
skriver du RUN, og indtaster 
tallene i højre kolonne lor 
maskinkoden: 

Når alle tal er inde, bruger du 
BREAK, skriver POKE 17303,0 
og erstatter linierne 10 til 80 
med det nye program. Des¬ 
uden tilføjer du linie 90 til 
110. Når du er færdig, bør dit 
program se ud som vist. 
Programmet kan ligge i en 2 
K Lambda (uden RAM-pak- 
ke), og startes med RUN.D 

Jakob Gaardsted 


1 REM.(98 punktummer) 

10X-17307 
20 INPUT AS 
30 SCROLL 
40 PRINT X.'-': AS 

50 POKE X. 16*CODE AS +CODE AS<2>476 
60 X=X+1 
70 A$*A$(3TO) 

80 GOTO 20+(30 AND AS< > "") 




i s.RNO,Vao: 


CL5 


__ STEP 

GOSU& . NEIJ 3PISN B.C't-Æ 

__ . . RETURN 4. IF U9 TMEN F 

ETURN COPY C= RETURN LIST SJF"^ P 
ETURN_ 

3202 RETURN _ _ 

S193 ■■■) . RND5LRNP GOSUB HVAL ^ 
c • let RETURN ClRTN E..RNDØ 

o . 'Ih . 


plot o4 

- PRINT 
-30000) 

30 IF P sTø b OR S>20000 THEN GOTO 
40 RAND 20001 


10 PRINT 'INDTAST SUAERHEPSGRA 
(0-30000)." 

20 INPUT S 


RINT "TRYK ENTER FOR START 
60 IF INKEY* < >CHR# 116 THEN GO 
TO 60 
70 CLS 


90 PRINT AT 0 









Amclock 





3 ’ Herfra 09 op til DIGI-CLOCK lisser MAIN PROGRAt 

10010 ’ ** DIGI-CLOCK ** 

10020 7 ** (c) Kasser Vad ** 

10030 ’ ** (c) d. 06-01-1985 ** 

10040 ’ j**************************************** 

10050 ’ Start procedure 

10060 MODE 2 

10070 7 Set ciock 

10030 LOCATE 2,2sPRINT"DIGI-CL0CK" 

10090 LOCATE 2.5s PRINT "Set ciock!" 

10100 LOCATE 2,8 

10110 INPUT "Input timer (0-23) "?hrs : IF hrs(0 01 
10120 LOCATE 2, 10 

10130 INPUT "Input minutter (0-59) ";mns : IF rnnsd 
10140 LOCATE 2,12 

10150 INPUT "Input sekunder (0-59) "?sec : IF sec 
10160 LOCATE 2,14« PRINT "er " i hrsimns!sec!" korrel 
10170 kor*=INKEY*:korr*=LOWER*(kor»)s IF korr*="" 
10130 IF korr$="n" THEN 10060 
10190 CLS 

10200 7 InterruPt kommando 

10210 EVERY 50 G0SU8 10230 

10220 ’ RETURN TO MAIN PROGRAM : RETURN 

10230 7 Opdater i ns af uret 

10240 sec=sec+l: IF sec(60 THEN RETURN ELSE sec=0 

10250 mns=mns+l: IF mns(60 THEN RETURN ELSE mns=0 

10260 hrs=hrs+ls IF hrs(24 THEN RETURN ELSE hrs=0 

10270 RETURN 


100 LOCATE 2,2: PRINT I 
110 LOCATE 5,2« PRINT t 
120 LOCATE 8,2s PRINT i 
130 GOTO 100 


>c(0 OR sec) 5! 
ekt J/N ?" 
THEN 10170 


Der har ofte været vist ciock 
(ur) programmer til forskellige 
computere, men oftest er dis¬ 
se programmer ganske ubru¬ 
gelige i mere praktiske 
sammenhænge. 

Dette lille program bruger 
Amstrads smarte interrupt 
kommando EVERY, se linie 
10210 . 

Ved opstart springer man til 
»DIGICLOCK«. hvor uret indstil¬ 
les. Derefter returneres til linie 
3, hvorfra ens eget program 
kan ligge. Det er MAIN- 
PROGRAM. Under udtørelsen 
ai MAIN-PROGAM springes 
der så én gang i sekundet til 
»DIGI-CLOCK« hvor uret så op¬ 
dateres. 

Nu er det så meningen, at 
man i »MAIN-PROGRAM« kan 
skrive på skærmen, hvad 
klokken er, ved hjælp ai de 
tre variabler hrs (timer), mns 
(minutter) og sec (sekunder), 
til at illustrere dette har vi la¬ 
vet program 2. Tast program 
1 og 2 ind og kør dem samti¬ 
dig. 

Brugeren kan desuden tilføje 
forskellige andre finesser til sit 
program, i.eks. en alarm 
funktion, og man kan lade et 
vindue på skærmen vise, 
hvad klokken er. 

Vær opmærksom på én ting. 
hvis du under opdateringen 
al uret skal styre andre ting, 
i.eks. en alarm kan du iå 
problemer med tiden. Husk, 
at jo mere der skal laves un¬ 
der interruptet, jo mindre tid 
bliver der til at eksekvere 
MAIN-PROGR AMMET. 

Kasper Vad 


Programmer: 

Samtlige aftrykte listninger 
er afprøvede før offentlig¬ 
gørelse Forlaget betaler 
skattefrit op til 1000 kroner 
for godkendte læserpro¬ 
grammer Forlaget har ret til 
at altrykke godkendte pro¬ 
grammer i bladet og offent¬ 
liggøre dem p6 andre 
lagermedia 
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■ Du ei pilot i en jordisk 
kampflyver og bliver under 
en fredelig rutinetur kaldt 
over radioen: En klynge 
ukendte og uidentificerbare 
flyvende objekter nærmer sig 
Jorden i hurtig fart. Udslet 
dem. 

De indtrængende UFO'er er 
ikke helt nemme at omgås. 
F.eks. viser det sig, at de skal 
have mindst 25 fuldtræffere, 
før de eksploderer. Forsvarslø¬ 
se er de heller ikke. Pas på, 
de bider fra sig og kan nemt 
uskadeliggøre dig, hvis du 
bliver for kåd. 

Men, du har selvfølgelig fald¬ 
skærmen som sikkerhed. El¬ 
ler har du? Man har jo lør hørt 
historier om, at faldskærme 
glemmer at folde sig ud. 


Slap dog oare af. I program¬ 
met er indbygget en sidste 
redning. Nemlig at du lander 
din kampflyver i en kæmpe 
høstak. Det giver ganske vist 
halmstrå i næsen, men spa¬ 
rer dig en brådden pande. 
Du får 10 points, hver gang 
du rammer plet på en UFO og 
100 points ekstra, hvis du kan 
pumpe så meget bly i den, at 
den eksploderer. 

Kort sagt et fornøjeligt spil, der 
kan hjælpe lidt over de kede-, 
lige pauser på kontoret eller 
derhjemme. Spillet kører på 
en IBM PC eller kompatibel, 
der har grafisk adapter ind¬ 
bygget. r; 

Erik Hougaard og 
Michael Andersen 


UFO JAGT FOR IBM PC MED BASICA OG ( 
GRAFIK ADAPTER.SKREVET AF ( 
ERIK HOUGAARD I JANUAR 1985 



TIL. AT FLYTTE FLY 


Al SKYDE MED. 


< IMIJMLOCK > FØR DER TRYKKES 


EY OF F:DIM EKS(10000): 

1010 DEF FNSZ(X« Y > = (4+1NT <() 

1011 READ X,Y:N=FNSZ(X,Y> 


>/ 8 >< 


PCombc 


:DEF SEG-0 sPOKE 1050,PEEK(1052):COLOR 3,1 


LOCATE 23,30:PRINT "FLY:" 


1012 DIM PLANE"/. (N) 

1013 PLANE"/. (0 > = X: PLANE"/. (1 > = Y 

1014 FOR 1=2 TO N: READ PLANE"/. < I) : NEXT I 

1015 DATA &H38, S<HB, &H5555, &H5555, &H5555,&H5555,?<H5555,&H5555 

1016 DATA &HA555, StH5555, &H5555. ?,H5655, &HD5A5, &HA956, &H5555, &HA55A 

1017 DATA &H5AD5, &H550A, &H5A55, ?<HD5A5, S<H2A8, 8.HAAAA, &HF5AF, &HAAEA 

1018 DATA ?<HFAFF, &HABAA, &HEAF5, ?<HBF AA, ?<HAAFA, &HF5AA, &H55D5, &HF55F 

1019 DATA &H5555, &HD555, &H5755, &HS5F5, ?<H5555, 8/H5555, 8<H5555, &H5555 

1020 DATA &H55 

1021 GOSUB 1072 

1022 CLS:SCREEN 

1023 GOSUB 1050 

1024 GOSUB 1045 

1025 GOSUB 1086 

1026 CLS 

1027 LINE (10,10)-(310,180),1.BF 

1028 LOCATE 23,1:PRINT " 

1029 LOCATE 23,2:PRINT "SCORE:";! 

1030 GOSUB 1054 

1031 AS=INKEY*:IF A*="8" AND X U 

1032 IF A*="2" AND X<155 THEN X=: 

1033 IF A*=" " THEN GOSUB 1039 

1034 IF W 13 OR W>279 THEN PUT (W,E),RO,XOR: GOSUB 1054 ELSE W-W+RET 

1035 IF WC170 AND W>145 AND (E=X+-3 OR E=X+8> THEN GOTO 1057 

1036 PUT (160,X),PL,PSET 

1037 PUT (W,E >,RO,PSET 

1038 GOTO 1031 

1039 LINE (160,X+11)-(0,X+11) 

1040 SOUND 800,.3 

1041 LINE (160,X+ll)-(0,X+ll),0 

1042 IF W 160 AND E=X+3 OR W<160 AND E=X+8 THEN SC=SC+10:LOCATE 23,2:PRINT"SCORE 
:"!SC:F=F+1 

1043 IF F=25 THEN F=0:G0T0 1069 

1044 RETURN ' 

1045 PUT (160,80) , PLANE"/.: LOCATE 8, 17:PRINT "UFO JAGT-" 

1046 DIM DF(300):GET(O,O)—(10,30),DF 

1047 DIM PL(200):GET(159,75)-(185,94),PL 


i THEN X=X-5 



1048 FOR 1=280 TO 170 STEP -l-.PUT (1,80) , RO, PSET: NEXT : FOR 1 = 100 70 170:PUT (160 
, I) ,TROOP'/., PSET: FOR C=1 TO 60: NEXT : NEXT 

1049 RETURN 

1050 LINE (140,60)-(180,120),1,BF:CIRCLE (160,100),4,2 

1051 FAINT (160,100),2,2 
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1 1052 DIM RO(70):GET (145,95)-<174,105),RO 

1053 CLS:RETURN 

1054 Q=INT(RND*2):IF Q/2=INT<Q) THEN W=1:RET=10:W=INT (RND*100)+5 ELSE W=2SO-INT 
(RND*80):RET=—10 

1055 E=X+3: R=W: PUT <W, E) , RO, PSET 

1056 RETURN 

1057 FOR G=0 TO lOsFOR T=0 TO 10:I=INT(RND*20)+155:D=INT<RND*20>+X:PUT(I,D),RO.X 
OR:NEXT :NEXT 

1058 GET (100,O)-(200,199),EKS 

1059 D=INT (RND*10):IF D<5 THEN GOTO 1063 

1060 PUT (100,0) ,EKS:FOR N=X+15 TO 170:PUT < 160, N) , TR00P7., PSET: FOR L=0 TO 20:NEX 
T :NEXT 

1061 FOR 1=0 TO 1000:NEXT 

1062 F=0:LI=LI-1:IF LI=0 THEN GOTO 1068ELSE GOTO 1026 

1063 CIRCLE (160,200),15,2:PAINT (160,198),2,2:LOCATE 23,2:PRINT "HOSTAK "•C 

HR*(26) 

1064 FOR N=X TO X+20:PUT (153, N) , LAND7., PSET: PUT (100,0) , EKS: FOR L*0 TO 20:NEXT : 
NEXT 

1065 FOR N=X+20 TO 170:PUT (153, N) , LAND'/., PSET: FOR L=0 TO 20:NEXT : NEXT 

1066 FOR 1=0 TO 1000:NEXT 

1067 F=0:LI=LI-1:IF LI=0 THEN GOTO 1068ELSE GOTO 1026 

1068 LOCATE 12,20:PRINT "GAME OVER.END 

1069 FOR 0=0 TO 10:FOR TY=0 TO 10:S=INT (RND*20)+W:D=INT(RND*20)+E:PUT (S.D),RO: 
NEXT :NEXT 

1070 SC=SC+100:LOCATE 23,2:PRINT "SCORE:"jSC:LOCATE 23.30:PRINT "FLY:"5LI 

1071 GOTO 1026 

1072 READ X,Y:N=FNSZ(X,Y) 

1073 DIM TR00P5C (300) 

1074 TR00P7. (O) =X: TROOP7. (1) = Y 

1075 FOR 1=2 TO N: READ TR0DP7. (I) : NEXT I 

1076 DATA &H2A, &H17, StHO, &H0, &H0, 8<H0, &HB0AA, 8<H0 

1077 DATA &HA00, ?<HA8AA, 8<H0, &HAAOO, &HAAAA, 8<H80, &HAA02. 8<HAAAA 

1078 DATA 8/HA0, ?<HAAOA, 8<HAAAA, 8<HA8, 8<HAA0A. 8<HAAAA, 8<HA8, 8-HAA0A 

1079 DATA 8-HAAAA, 8<HA8, &H8A02, &HA888, &HAO, 8<H8200, &H2000. 8,H80 

1080 DATA S/HC300, &H3000, 8<HC0, &H3B00.8.H3B3F , 8<H0, 8<HF00. 8-H3C3F 

1081 DATA &H0, &HBOO, &H380C, 8<H0, 8<HA00, 8<HBAA, 8<H0, 8<H0 

1082 DATA 8'H2A, &H0, 8<H0, &H2A, 8<H0,8<H0, 8<H2A, 8<H0 

1083 DATA ?<H0, 8<H22, 8<H0, 8<H0, 8<H22, 8<H0, 8<H0, 8<H22 

1084 DATA 8<H0, 8<H0,8<H22, 8<H0, 8<H0, 8<H0, &H0, 8<H0 

1085 RETURN 

1086 READ X,Y:N=FNSZ(X,Y) 

1087 DIM LAND7.(300> 

1088 LAND - /. (O) =X: LAND7. (1) =Y 

1089 FOR 1=2 TO N: READ LAND7. (I) : NEXT I 

1090 DATA &H22, &H17, &HO, &H0, &H0, &H0, &H0, 8<H0 

1091 DATA &H0,8<H0, 8<HC>, 8<H0, 8<H0, 8<H0, 8<H0, 8<H0 

1092 DATA 8>H0, WHO, 8<H0, &H0, &H0, 8<H0, 8<H0, &H0 

1093 DATA 8<HO, 8<H0, 8<H0, 8<H0, 8<H0, 8<HO, 8<H0, 8<H0 

1094 DATA 8<H0,8<H0,8<H0,8<HC00F, 8<H0, 8<H8FOO, ?<HCS, 8<H0 

1095 DATA &H8B3, 8<H0, 8<HAA00, 8<HA8,8cH0, 8<H800A, 8<H0, &HAOO 

1096 DATA 8-H80. 8<HO, 8<HBOOA, 8<H0, 8<H800, 8<H80, 8<HO, 8<H8008 

1097 DATA 8-HO,8<H800,8<H80,8<H0 
10R8 RFTIJRN 
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Super 3-D lab 


■ Du er langet i en kæmpe¬ 
stor labyrint. Du har allerede 
sved på panden. Kommer 
jeg ud eller hvad??? Det gør 
du, men kun hvis du bærer 
dig lornultigt ad. 

Du vil lørst i dette program tå 
en grundig instruktion, hvor¬ 
efter du er overladt til dig selv. 
Men det går altsammen, hvis 


du bare ikke kikker for man¬ 
ge gange på det oversigts¬ 
kort, du skal anvende lor at 
finde udgangen. 

Du kører frem med spacebar, 
til venstre med V og til højre 
med H. Ved drejning står du 
på samme sted. Du kan se 
landkort ved et tryk på L.D 
Nils Lausien 


IFB1X,V)*3THEN00SUB7300:G0T02100 
IFB<X,V)»4THENG0SUB7400:G0T02100 
G0SUB7300 


N1 =0 : N2=ø: N3= 1 : N4* 1 : Hl =3 : H2*4 : H3-* 
JFBCX+X2.Y+Y2 > >ØTHEHQF=ø:G0T02230 

Nl*ø•M2=ø:N3=l N4*l:Hl-36=H2=33'H 
IFB <X+FX,V+FY)*1THEN3000 
IFB< X+FX,Y+FY >—1THEN8500 


IFB <X+X3,V+V3 > >øTHENØF=ø:GOT02390 


PRINTAB<8>;TRB<19);S#<0) 
PRINTA*<8);TAB<2ø);S*<ø> 
GOTO1100 



PRINTR»<N1) i TRBCH1);S$(SI > 
P0KE646,F<1> 

PR J NTA* (H2 ), TRE < H2); S* ( S2 > 


8080 PRINTA*<N3);TAB<H3);S*<S3> 
8085 P0KE646,F<3> 

8090 PRINTA*<N4);TA8<H4);S*<S4>' 
8093 PR1NTTRB<H4>; "P" 

8095 PRINTA*<N4>,TRB<H4), "3n" 
8100 RETURN 

P0KE646,FG PRINTR* < 8); TflB <1 


4*33■S1*8 : 82*8:S3*7:S4-7 G0SUB93øø 


FORQX*ØTOBX 

IFB<QX,GV)*1THENPRINT"S 
IFB< QX,OY)»ØTHENPRINT”■ 


PRINTTRB<H2); "V 

PRINTA*(N2);TAB<H2>; 

P0KE646,F<2> 


PRINT"I7* DETTE PROGRAM ER LRVET RF " 
PRINT-S JNIELS LRUSTENS* 1 

PRINT" SI.H.MUNDTSVEJ 18S* 

PRINT" »2830 VIRUMS*' 

PRINT'*iDU SKAL FINDE UDGANGEN I LABYRINTEN." 
PRINT"DET ER KUN MULIGT RT SE 3 SKRIDT FREM" 
PRINTTOR SIG I DEN GANG MRN NETOP BEFINDER" 
PRINT"SIG I.*" 

PRINT'*SflflDRN BEVREGER DU DIG M" 
PRINT"5TRYK'SPACE'.SAR 1 GflflR DU FREMAD'* 
PRINT'*HVIS DER IKKE ER EN MUR.'* 
PRINT"STAST'H',SAA DREJER DU DIG TIL HOEJRfi,** 
PR I NT "MEN »BLIVER STRANDE PRA’ SAMME STED." 
PRINT**;iTftST'V',SRR DREJER -DU J1IG TIL VENSTRE," 
PR I NT "MEN »BLIVER ST ÅRENDE PAR 'SAMME STED. ** 
PRINT"»HVIS DU TASTER 'L',BLIVER LABYRINTEN" 
PRINT"SKREVET UD PRR SKRERMEN. "* 

PRINT"IHVIS DU TASTER P',BLIVER DU STAAENDE'* 
PRINT"HVOR DU STARR.BRUGES HVIS DU HRP" 

PRINT"'SNYDT' V|6 AT SS LABYRINTEN.C L’>" 
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Fort Apache 


■ Fort Apache er en compu- 
ter version ai en al de kendte y: 'y/ 

små lommespil, hvor du har 1 - 

kontrol over broen til din 
borg. Den skal slås op og 
ned. Op, når det er fjender el¬ 
ler venner, der ankommer. I 

Spillet er selvforklarende og / 

delt op i to. Indtast del et og 
læg den på bånd. Indtast 
dernæst del to. J 

Efter indlæsning af del et fra S J. / 
bånd skal du vente ca. 3 mi- (Hl 
nutter på. at skærmen slettes jdrg 
og andre væsentlige ting 
klargøres.□ / Jt 

Michael Lauridsen I 


fmøw 




' 35008T035253 : B*INT(RND <1)*23) 


370 PRINT"I*N KUN HVIS HAN HAR HJEM PAA* 
380 PRINT IPRINT »PRINT "CONTROL I PORT 1" 

390 PRINTIPRINT" AABEN P0RT<- 

393 F0RQ-0T0I0IBETA*lhEXT 

400 0ETA*»IFA*-""THEN400 

410 PRINT'NAAR CURSER SES TASTES <L0AD>" 

REAOY. 


ø P0KE53272,31 LI=ØP0=ø P0KE53280,ø P0KE53281,ø 
10 PRINT" IB M SCORE" 

30 PRINn»B';28),"Sff)." 

40 printtrb<28>;-T3 m*a 
30 PRINTTHBC28);"n Ift-9 

6ø F0Rfl*ØT04 : PRINTTRBC28)1""1 3 " NEXT 

70 PRINTTHB<28);"n 3 

80 F0RRP2IT024:F0RB-32T039:POKE1024+R440+B,160 NEXT : NEXT 
90 PRINT"13 COMMODORE 64 FORT RPRCHE " 

100 PRINT”3 

110 F0RR-1984T02015:POKER, 33:POKER+55296-1024,6’■NEXT 

120 P0KE2012,160 POKE1972,160 

200 F0RR-30000T030235:B«INT<RND<1>#15> 

210 IFB“øTHENPOKER,35 
220 I FB“ 1THENPOKER,37 
230 IFB>1THENPOKER,32 
240 NEXT 
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010 // CoDyright <c> by Lars Christensen, Hillerød. 

020 PRINT CHR*(12>;TAB(26>:"E LIZA" 

030 PRINT 
040 PRINT 
050 PRINT 

060 // Initialiserino 
070 nls=36; n2s=14; n3:=112 

OBO DIM s(ni), r(nl),n<nl), i* OF 80, k* OF 20,c« OF 80, f* OF 80, rs* OF 20 
090 DIM SS* OF 20,o* OF BO,keyword*(ni) OF 20,reoly*(n3) OF BO 
100 PRINT "a moment. Diease. She’s Corning soon" 

110 RESTORE numerical 
120 FOR X(=l TO ni DO 
130 READ s(x),1 
140 r(x)s=s(x); n<x):=s(x)+l-l 
150 NEXT x 

160 RESTORE keywords 

170 FOR x s = l TO ni DO READ keyword*(x) 

ISO RESTORE reolyes 
190 FOR xs=l TO n3 DO READ reoly*(x> 

200 PRINT "hi! i’.m Eliza. what’s your problem ? 

210 // User inout section 
220 REPEAT 
230 INPUT i* 

240 i*:«" “+i*+" " 

250 IF 11 shut" IN i* THEN 

260 PRINT “ok, i give up, goodbye." 

270 END 

280 ENDIF 

290 WHILE IN i* DO posi= IN i*; i*:=i*(1 :dos- 1)+i*( dos+ 1(LEN(i*)) 

300 IF i*=o* THEN 

310 PRINT "olease don’t repeat yourself!" 

320 o*i-"**************«***********' 

330 ELSE 

340 // find keyword in i* 

350 si s=0 

360 FOR kl 8 = 1 TO ni DO 

370 IF keyword«<kl) IN i* THEN sl:=kl; kl:=nl 

380 NEXT kl 

390 IF si(=0 THEN 

400 si:=36 

410 ELSE 

420 RESTORE oronouns 

430 

440 c*s=" "+i*((keyword*(sl> IN i*>+LEN(keyword*(si>>sLEN(i*))+” " 

450 FOR x s = 1 TO n2/2 DO 

460 REOD ss*,rs* 

470 WHILE ss* IN c* DO poss=ss* IN c«; c*8=c*(1 spos-1)+rs*+c*( dos+LEN( s 

*)s LEN(c*)) 

4B0 WHILE rs* IN c* DO poss = rs* IN c*; c*s=c*(1 spos-1)+ss*+c*( dos+LEN( r 

.*) s LEN <c*) > 



Eliza 

■ Er du træt al altid at se din 
computer meddele ’SYNTAX 
lejr og 'Variabel ikke erklæ¬ 
ret'? Så tast dette program ind 
og RUN det. Du vil så blive 
præsenteret for psykoanalyti¬ 
keren Eliza. 

Med hende kan du tøre en 
samtale, godt nok på en¬ 
gelsk, men alligevel noget 
mere intelligent end sæd¬ 
vanligt. 

Eliza vil analysere det, du 
skriver, og forsøge at reagere 
så fornuftigt som muligt på 
det. Selve teorien og ideen 
bag det hele stammer Ira 
amerikaneren og psykoana¬ 
lytikeren Carl Rogers. 
Præsenter dette program for 
alle, der plejer at bande over 
deres computer, og for alle 
der ikke har prøvet en com¬ 
puter tør. Det vil helt sikkert 
gøre lykkelD 

Lars Christensen 


0490 NEXT x 

0500 IF c*(282> = " " THEN c* s =c*(2 s LEN(c*)) 

0510 WHILE "!" IN c* DO oos8="!" IN c*; c*8=c* (18 pos-1 H-c* (oos+1 

0520 ENDIF 

0530 IF reply*(r(sl>>(LEN(reply* < r <sl >>)8)(>"*" THEN 
0540 PRINT reply*(r(si>) 

0550 ELSE 

0560 PRINT reply*(r(sl>)(18LEN<reply*(r<sl>>>-l>;c* 

0570 ENDIF 

0580 p*s=i*; r(sl)s=r(sl)+l 

0590 IF r(sl> > n(si) THEN r(sl)8=s(sl) 

0600 ENDIF 
0610 UNTIL FALSE 
0620 keywordss 

0630 DATO "can you","can i","you are", "youp»“,“i dont”,”i feel" 

0640 DATA "why dont you", "why cant i", "ar« you", "i cant","i am”,"im " 
0650 DATA "you ",”i want","what","how", "who", "where","when", "why" 

0660 DATA "name","cause","sorry","oream","hello",“hi ","maybe" 

0670 DATA " no",“your”,"always", "think", "alike", "yes”, "friend" 

0680 DATA "computer", "nokeyfound" 

0690 pronouns: 

0700 DATA " are am ","were ", "was “ you "," i ", "your ", "my " 

0710 DATA " ive " youve im youre " 

0720 // data " me "," you " 

0730 reolyess 

0740 DATA "don’t you belive that i can*” 

0750 DATA "perhaps you would like to be able to*" 

0760 DATA “you want me to be able to*" 

0770 DATA "oerhaDs you don’t want to*" 

0780 DATA "do you want to be able to*” 

0790 DATA "what makes you think i am*" 

OBOO DATA "does it piease you to belive i am*" 

0810 DATA "perhaps you would like to be*" 

0820 DATA "do you sometimes wish you were*” 

0830 DATA "don’t you really*" 

0840 DATA "why don’t you*" 

0850 DATA "do you wish to be able to*" 

0860 DATA "does that trouble you?" 

0870 DATA "tell me more about such feelings." 

0880 DATA "do you often feel*" 

0890 DATA "do you enjoy feeling*" 

0900 DATA "do you really belive i don’t*" 

0910 DATA "oerhaos in pood time i will*“ 

0920 DATA "do you want me to*” 

0930 DATA "do you think you should be able to*" 

0940 DATA "why can’t you*" 

0950 DATA "why are you interested in whether or not, » am*" 
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Dræberne i 
drivhuset 


■ Troede du. at havearbejde 
var noget al det mest fredfyld¬ 
te og idylliske, man kan fore¬ 
tage sig, kan du roligt tro om 
igen. 

Vores ellers så fredelige gart¬ 
ner kommer nemlig ud for de 
værste oplevelser, da han 
bliver hyret til at luge ud i et 
ældre misligholdt drivhus hos 
en lige så mystisk eneboer. 


Du møder edderkopper, der 
firer sig ned fra loftet, og som 
kun kan udryddes med gift. 
Edderkopperne må under in¬ 
gen omstændigheder nå ned 
til planterne. De kan nemlig 
ikke tåle den gift, som insek¬ 
terne sprøjter omkring sig. 
Programmet er selvforklaren- 
de.D 

Christian Bømler. 























































































Modstands¬ 

bevægelse 


■ De fleste tolk, der pusler 
med elektronik pd amatør el¬ 
ler protessionelt plan, kom¬ 
mer pd et eller andet 
tidspunkt ud tor at skulle be¬ 
regne modstande. 

Det gør man normalt pr. 
hdndkraft eller lommeregner, 
men man kan udmærket la¬ 
de en Commodore 64 toreta¬ 
ge arbejdet. Dette lille smarte 
program kan ovenikøbet ud¬ 
regne afvigelser i modstan¬ 
de. 

Programmet spørger om de fi¬ 
re tarver pd modstanden. Ud 
fra de oplysninger kan det 
dels beregne værdien dels 
atvigelsesprocenten. Be¬ 
mærk i programmet, at ø er 
nul og Å er AA.D 

Allan Kristensen 



1 REM MODSTANDSKODE 
5 REM MADE BY ALLAN KRISTENSEN 
10 PR I NT'TB" : P0KE53280 .' 6 ; PQKE53281 , 6 
20 PRINTTAB( 13)"mODSTANDS KODE'' 

30 PRINTTABC 11 ) "Mrø* r-rr-r-r-rr--r-r-, " 

40 F0RJ*1T04 : PRINTTAB<11)"I II II II II I":NEXT 

50 PRINTTABOl)" 1 —- xi-j" 

60 PRINTTAB<7>"TTI / --)"TAB<28)" 1- 

70 F0RJ=1TQ2 : PRINTTABC7)"I M TAB<32>"I":NEXT 

80 PRINT"JrøneSBirøilK" F0RJ=1T04: PRINTJ"II. FARVE ".-INPU' 

90 IF A$="SQRT" THEN R<J)=l:B<J)=0 

løø IF A*="BRUN" THEN R<J>=lø:B(J)=l 

Hø IF A*="RøD" THEN A<J)=100:B<J>*2 

120 IF A$="ORANGE" THEN A< J)=lø-T3 : B< J>=3 

130 IF A*="GUL" THEN A<J)»løT4:B<J>=4 

140 IF A*="GRØN" THEN A<J)=løT5:B<J>*5 

150 IF A*="BLAA" THEN A<J)=løT6:B<J>=6 

16ø IF A$="VIOLET" THEN A(J)=løT7:B(J>=7 

170 IF R*="GRRA" THEN A<J>«10T8:B<J>=8 

180 IF A*="HVID" THEN A<J>=løT9:B<J>=9 

210 IF J<4 THEN NEXT 

220 IF A$="GULD" THEN C<J>=5 

230 IF A*="SØLV" THEN C<J>=10 

235 IF A$="RØD" THEN C<J>=2 

24ø IF B<2»øTHENLET B< 1 )=B( 1 >#lø+B<2> : LET D*B<1>#A<3> 
243 IF B<2>=ø THEN D=B<1)#A<3> 

245 PRINTTAB C 5) ": 111111111W10DSTANDEN ER PAA"; 

250 IF D>=ø AND D<=999 THEN 300 

260 IF D>løøø AND D<=999999THEN 4øø 

270 IF D>999999THEN 5øø 

300 P»*" M 

31ø GOTO 94ø 

4øø LET D=DX1000 

41ø P*="K" 

420 GOTO 94ø 

430 GOTO 94ø 

5øø LET D=DXløøøøøø 

510 p$= M rr 

94ø PRINT D; 

950 PR I NT " 3" TAB<27) " WWtWiWHWi!!« "; P OHM 
960 PRINT" MED TOLERANCE PAA" ;C(4>; 

970 PRINT" JKKTTTRVK SF IB FOR AT FORSAETTE" 

løøø F0RJ=1T03 ; PRINT" "NEXT 

lølø GETA*: IFfWO"B" THEN lølø 

1020 CLR 

1030 RIJN 

































Proxon angriber 

■ Ispillet "Proxon angriber" missiler, der udsendes i en nemfig maximalt tåle at blive SPtc- I 
befinder du dig ved styrepul- strid strøm fra krigsplaneten ramt fire gange, tør det smad- thw* 9 
ten i rumskibet Stellar Fiahter. Proxon. res. _□ 


■ I spillet "Proxon angriber" 
befinder du dig ved styrepul¬ 
ten i rumskibet Stellar Fighter, 
der er det eneste tilbage al en 
hel armada til beskyttelse al 
din fredelige planet. 

Din opgave er at forsvare din 
hjemklode mod fjendtlige 



missiler, der udsendes i en 
strid strøm fra krigsplaneten 
Proxon. 

Da du styrer fredsplanetens 
eneste tilbageværende rum¬ 
skib, skal du passe ekstra på. 
Skibets beskyttelsesskjold kan 

9 GO SUB 3000 
10 FOR a=l TO 5: READ s 
^ 20 FOR b=0 TO ?: READ c 

30 POKE USR a*tb,c 
40 NEXT b: NEXT « 


nemlig maximalt tåle at blive 
ramt fire gange, tør det smad- 
res. 

Spillet styres med A for op og 
Z for ned. Missiler aflyres med 
space-t asten. □ 

Flemming Christensen 


50 DATA "a",48,48,56,: 
„ 60 DATA 'V,0,0,0,192, 

70 DATA "c",0,15,63,2! 
' 80 DATA "d",0,255,255, 

90 DATA 0,227,255, 
100 PAUSE 1: 1F 1NKET*- 
ø: BORDER 2: BORDER 6: ! 
_5: BORDER 0: GO TO løø 
110 BORDER 7 
120 CLS 
1000 LET x=10 
1010 LET ml=0: LET fi=0 


,48,48,56,191,127,255,1,0 
,0,0,0,192,48,8,255,0 
,0,15,63,255,63,15,0,0 
,0,255,255,255,255,255,0,0 
,0,227,255,255,255,227,0,0 
IF 1NKET*«"" THEN BORDER 
BORDER 6= BOROER 4= BORDER 


1700 RETURN 

2000 PRINT AT xl,n*li FLASH 1i"cd«" 

2010 LET s®s+10 

2020 PRINT AT 0,7i FLASH lis 

2030 FOR a-10 TO 40 STEP 2: BEEP .1,»: B 

EEP .05,a-5: NEXT a 

2040 PRINT AT 0,7 is 

2050 PRINT AT xl.n+li” 

2100 GO TO 1035 

2200 PRINT AT x,0; FLASH li"ab" 

2205 PRINT AT xl.ntl i" 

2210 FOR s=l TO 4: FOR a=lø TO 20: BEEP 
.05,«: NEXT »: NEXT s 

2220 FOR «=40 TO 10 STEP -2: BEEP .1, a s 
BEEP .l,a-5: NEXT « 

2230 PRINT AT x,Øi" ” 

2240 FOR a=l TO 22: PRINT AT 10,ai" GAflE 
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J.R.’s rival 


■ I OFF-SHORE til Lambda/ 
Maiathon/Power gælder det 
om at sejle rundt og bore etter 
olie. Derefter skal fundet brin¬ 
ges i land. eksporteres og du 
skulle så gerne tjene penge. 
Den der sidst i spillet har flest 
penge, er den lykkelige vin¬ 
der. 

Hele spillet, pånær bankfor¬ 
retningerne, styres med joy- 
stick, og det har foruden de 
velkendte funktioner to nye: 
Tryk på skudknappen bety¬ 
der ja, mens vippen med pin¬ 
den betyder nej. 
Oliefelternes omfang og be¬ 
liggenhed veksler fra spil til 
spil, men jo større dybde du 
borer på, desto mere olie kan 
du finde - hvis der altså er no¬ 
get på DET felt. 

Hvert nyt spiller-display spør¬ 
ger, om du vil sejle eller bore. 
Hvis du ikke vil nogle af dele¬ 
ne, får du en række andre 
muligheder: proviantering af 
dieselolie til sejlads samt føde¬ 
varer til mandskabet. Er du 
først i søen bliver det dyrt med 
en nødvendig helikopterassi¬ 
stance. Bankforretningerne er 
lige ud ad landevejen, men 
husk at både gæld og tilgo¬ 
dehavender trækker renter, 
og at diskontoen kan variere! 
Hjemsejling sker ved, at du 
sejler gennem de inverse 
plusser med oliefelter. Når du 
har samlet tilstrækkelige 
mængder, bør du sejle i 
havn. 

Koncessioner tilhører normalt 
staten, men kan købes (højst 
10 ad gangen) til 6000 $ pr. 
styk. Kort over koncessioner¬ 
ne fås på forlangende. Eks¬ 
porten er også et kapitel for 
sig, men som ved alle de an¬ 
dre finesser gælder det, at ef¬ 
ter et par gange forstår man 
systemet. Efter hver spillerun¬ 
de vises display'et, indtil der 
trykkes på et eller andet igen. 
OFF-SHORE er et spil med 
ganske mange uventede be¬ 
givenheder, og husk at hver 
eneste oplysning på skær¬ 
men har en betydning !□ 

Jan Hansen 
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Ampainter 


■ Nu kan du få lejlighed til at 
udlolde dine kunstneriske ev¬ 
ner på Amstrads monitor. 
Med dette program kan man 
tegne linier, cirkler og firkan¬ 
ter. Cirklerne og firkanterne 
kan udfyldes efter behov. 
Programmets største fordel er, 
at du kan gemme dine teg¬ 
ninger på bånd. Hvis du så 


senere i et andet program (et 
adventure?) skal bruge bille¬ 
det skriver du blot LOAD 
"IBILLEDE". 

En anden smart ting er, at du 
kan få en oversigt over kom¬ 
mandoerne, uden at hele 
tegningen bliver ødelagt.□ 

















































Programmer: 

Samtlige aftrykte listninger 
er afprøvede tør offentlig¬ 
gørelse Forlaget betaler 
skattefrit op til 1000 kroner 
for godkendte læserpro¬ 
grammer. Forlaget har ret i 
at aftrykke godkendte pro¬ 
grammer i bladet og ofleni 






































































■ Regnelærer til Commodore 
64 er et program, som kan 
hjælpe små skolebørn med 
matematikken. 

Programmet giver nogle op¬ 
gaver. som man skal løse. 
Opgaverne bliver sværere, jo 
flere man fdr løst. 
Opgaverne omfatter de fire 
regnearter. Programmet er el¬ 
lers selvforklarende. □ 

Michael Lundholm 


i G0T0401 

















































Dette racerspil kan køre på en første Fl, andet F2, tredje F3 
VIC-20 uden ekstra RAM-til- og fjerde F4. 
slutning. Ved første start begynder du 

Spillet styres med joysticks. med RUN20. Derefter bare 
Forsøg at køre så længe som RUN. Henning Petersen 
muligt. Du har fire gear, — 






































Mælkevej 


■ Programmet »Mælkevej« 
demonstrerer på en overbe¬ 
visende måde, hvor flot Com- 
modore 64 kan tegne på en 
skærm. 

Når programmet er færdig, 
står du tilbage med et impo¬ 
nerende grafikbillede at en 
mælkevej med over 2000 
stjerner. Da programmet ta¬ 
ger lidt tid at køre, er det vel¬ 


egnet til f.eks. »demo«. 
Programmet tegner en eller to 
spiralarme i en at universets 
galakser. Centerstjemen mar¬ 
keres i hvidt, mens planeter¬ 
ne udenom tarves i blåt på 
en sort baggrund. 
»Mælkevej« rummer en del 
REM-sætninger, så det funge¬ 
rer selvinstruerende. □ 

Christian Nielsen 




■ Du skal i dette lille program toppen. Hvis du ikke gør det 
styre dig vej igennem den in- hurtigt nok, er du færdig. 
tergalaktiske rumvej i syste- Styr med tasterne Q for op, A 
met Sorion. Du skal finde hver for ned, M til venstre og N til 
passage for at avancere til højre.□ 

NilsLausten 
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■ Her har du så nok et blodigt så mange højhuse som mu- 
kampspil til din Commodore ligt. Men rebellerne har voe- 
64. Denne gang foregår det ret snedige. De har hældt 
hele i Afghanistans hoved- mælk i din flybenzin, så du 
stad Kabul, hvor du skal ned- tager højde hele tiden. Altså, 
kæmpe nogle særdeles på den, hvis du vil nå at sam- 
indædt kæmpende rebeller. le points, inden du selv ryger 

Som pilot i en kamphelikop- ned på maven.□ 
ter er din opgave at bombe Tom Rasmussen 
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Smarte datakarc 


10 P0KE53281,0 s P0KE53280,0 

20 pr TNT . ♦ * ♦ DATA-KARAKTER ***" 

30 PR i NT " F r jt et ØJEBLIK" 

40 P0KE32,48:P0KE56,48:P0KE36334,PEEK<36334>AN0234:POKE1,PEEK< 1>AN0231 
50 FORA«12288T016383 * POKER,PEEK< A>40960>: hCXT 

60 P0KE1,PEEK< 1)0R4 s P0KE56334,PEEK< 56334)0R1:P0KE53272,< PEEK< 53272 >AND240> ♦ 12 


- 13312T013823 s READB:POKER,B:NEXT 
r-LMYT RLFRBET: ■ 

sTT-^BCDEFGHI JKLMNOPQERSTUVUXYZ " 

vrr-*rrrE tegn: - 

TT"»+-*/«:;*A, .< -+CHRØC 34)- 
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Ømeborgen 

■ I dette spil, der passer til Sagen er bare. at en kaempe- 
Spectrum 16K og 48K, skal du ørn synes, det er sjovt at bom¬ 
forsvare en mur. der er livs- bardere muren, og det skal 
nødvendig som beskyttelse al du forhindre med alle mid¬ 
enlandsby. ler.D Allan Poulsen 


kterer 


Commodore tricks 


PBCCEEGHflBCDEEGH 
IJhLMNDPIJHLMNDP 
QRSTLIUtUi QRSTJUtU i 


■ Dette program laver hele 
karaktersættet om til smarte 
data karakterer, når du kører 
med store bogstaver på tasta¬ 
turet. Programmet er skrevet 
fuldt i BASIC og kører på 
CBM-64.D 


o/i "mb i* $ 

/o* ■ " i 1 in■ 11 i 1 in 
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■ Mange tipsprogrammer 
har gennem tiderne set da¬ 
gens lys. Dette program ad¬ 
skiller sig ira de tleste ved, at 
det udnytter systemtipnin¬ 
gens fordele. Programmet 
sætter brugeren i stand til løl- 
gende: 

Man kan 

gemme systemer på bånd 
hente systemer fra bånd 
bruge systemer 
selv indtaste nye systemer 
Programmet er i stand til at 
kopiere systemer fra ét bånd 
til et andet, hvilket vil være 
nyttigt, når tiere brugere at 
programmet vil "bytte" syste¬ 
mer med hinanden! 
Programmets kapacitet er al¬ 


le reducerede systemer tra 1 
til 255 enkeltrækker, hvilket 
skulle være tilstrækkeligt for 
de fleste. 

Indtastning af 
nyt system: 

Når programmet har spurgt 
om navnet på systemet, antal 
hel- og halvgarderinger og 
antal rækker, skal ABC-nøg- 
len indtastes: Programmet 
skriver "HELGARDERING NR. 
1'' og tegner en grøn bjælke. 
Helgarderingerne skal nu 
indtastes nøjagtigt, som de 
står i ABC-nøglen (brug taster¬ 
ne 1. x og 2). Tegnene vil ef¬ 
terhånden erstatte den 
grønne bjælke. Idet man ta¬ 


ster sidste tegn i hver bjælke, 
skiftes der automatisk til næ¬ 
ste bjælke (= næste hel- ell. 
halvgardering). 

VIGTIGT! Alle halvgarderin¬ 
ger skal indtastes med tegne¬ 
ne 1 og 2! (programmet æn¬ 
drer selv, hvis du får brug for 
1 x ell. x2 garderinger). 

Brug af system 

Man designer sin opstillings¬ 
række ved brug af tasterne 
fl, f5, f3 og 'CRSR UP/DWN'. 
Første tryk på f 1 /f3/f5 tænder 
det ønskede tegn imellem > 
og <, andet tryk slukker. Når 
der tastes f7 checker pro¬ 
grammet, om der er det rette 
antal hel- og halvgarderin¬ 


ger, og melder derefter OK! 
eller FEJL! Fås meldingen 
FEJL!, så ret og tryk f7 påny. 
Når der vises OK!, kreerer pro¬ 
grammet samtlige rækker i 
systemet og viser dem på 
skærmen, seks ad gangen, li¬ 
ge til at skrive ned Då tipsku¬ 
ponen! 

I øvrigt er programmet selv¬ 
forklarende. 

TIPS: Det er en god idé, at 
holde program og data (sy¬ 
stemer) adskilt på hver sit 
bånd, da dette reducerer risi¬ 
koen for utilsigtet sletning til et 
minimum. □ 


Martin Christiansen 

















































»SYSTEMINDLAESNING * i 






































































































































Dobbelt-Snake 


Dette spil kræver to spillere, som mulig, og samtidig und- 
Hver har sin egen slange, gå at blive lukket inde at 
som han/hun kører rundt modstanderens slange. 


med på skærmen. 


Dobbelt-Snake er et spil fuld 


Undervejs gælder det om at al fart, farver, lyd og grafik!□ • 
ramme så mange stjerner Lars Christensen 


19 MODE ø /MMltiS 

20 SPEED INK tø, 10 WaBilHk 

25 SYMBOL 255,0,0,118,204,214,102,220 

30 INK 0,0 INK 1,16,18 INK 2,2 INK 3,24 INK 4,17 INK 5,0,2 
4ø LOCRTE 7,5'PEN 1=PRINT"S N fl K E" 

50 MOVE 120,360=DRAM 54ø,360,3 = DRftUI 540,300=DRAM 120,300=DRAM 12ø,36ø 
6ø LOCRTE 4.12 PEN 4=PPINT"For to s.Pillere" 

7ø LOCflTE 1,17 PEN 2 = PRINT" Instruktioner ( j/nV; PEN 5 = PRINT CHR$<143 
80 LOCRTE 1,25 : PEN 3 = PRINT TRB<5>; CHR*164 >.= " by LC-Soft. 11 
9ø GOSUB 46ø 

løø IF x*=" i" OR x*="y" THEN GOSUB 470 
110 INK 0,0=INK 1,16,18=INK 2,2=INK 3,24=INK 4,7 
120 SPEED INK 7,7 = Pointl=ø = Point2=ø l 

130 FOR sPil=l TO 5 \ 

14ø MODE ø 

150 FOR x=l TO 20 = PLOT RND*59ø+2ø■RND*360+20,1=DRRWR -4,0=DRAWP 4,4 = DRAWR 4,-4 = D 
RRWR -4,-6 DRRWR -4,6=NEXT 

160 MOVE 0,0=DRAM 639,0.2 DRRW 639,399=DRRW 0,399=DRRW ø.ø 

17ø x1=5ø = y1=199 = x2=579 = y 2=199 = xretnin91=4 = y retmin9l=ø = xretnin92=-4 = yretnin92=ø 
180 WHILE INKEY«>"" = MEND 
190 EVERY 5 GOSUB 4øø 

2øØ DI=xl2=xl+xretnin9l=y12=y1+yretning1= x22=x2+xretnin92 = y22=y2+yretn in92 = test1 
=TEST< xl2, y 12 ) = test.2=TEST< x22, y22 > 

210 IF testl=l THEN Pointl=Pointl+3 = SOUND l-løø,lø 

220 IF test2=l THEN Point2*Point2+3= SOUND 2,2øø,lø ^ 

23ø IF testi>1 THEN SOUND 2,2øø, 5ø 1 P o i nt2=P o i nt 2+1 ø = GOTO 28ø 

240 IF test2>l THEN SOUND 1, 100,50=Pointl-Point1+10‘GOTO 28ø /T_ 

250 MOVE xl, y 1 = DRAW xl2,yl2,3=M0VE x2,y2=DRflU x22,y22,4 V 

26ø El=xl*xl2=yl=y12=x2=x22=y2=y22 x £ Ær / 

270 GOTO 2øø 

280 NEXT »Pil ifJTVl 

290 MODE 1 i Lvfa,,./' 

3øø IF Pointl >=Point2 THEN INK 2,24,2 ELSE INK 2.24 S-ÆT jWjtiuv 

310 IF Point2>=Pointl THEN INK 3,7,18 ELSE INK 3,7 /7y / / 

320 PEN 2 = PRINT" Spiller 1 fik "rPointl;" Points" i %ln ilBr Æ 

330 PEN 3 = PRINT" SPiller 2 fik ",Point2=" Points" 

340 INK 1,13 

350 PEN 1 = PRINT = PRINT PRINT" Nyt spil C j/n) ?" \W%u,j£jk 

360 GOSUB 460 WtfLrV/ I l 

370 IF x*="y" OR x*="j" THEN GOTO 110 T| 

380 IF x*="n" THEN END \\ 

390 GOTO 36ø \\ \ J 

400 t«st*=INKEY*= IF tast*="" THEN RETURN ' M 

410 IF tastS="z“ THEN t=xretnin9l=xretnin9l=-yretnin9l=yretnin9l=t ' 

420 IF tast*=“x" THEN t=xretnin91 =xretnin9l*yretnin9l = yretnin9l=-t. Hr**** 

430 IF ta»t*="■" THEN t=xretnin92=xretnin92=-yretnin92=yretnin92=t- Jm 

440 IF tast*="." THEN t=xretnin92=xretnin92=yretnin92=yretnin92=-t Jr* 

450 RETURN 

460 x*=""= WHILE x*=""=x*=LOMER*<INKEY*> = MEND RETURN f \l 

47ø INK 2,13 f II 

480 MODE 1 / \] 

490 PEN 1 = PRINT PRINT = PRINT TABri5>;"S N R K E" ' 

5øø PRINT PEN 2 = PRINT TRB< 6)"Styrer-taster " PRINT 

510 PRINT TAB<6>"SPi 1 ler 1 '";=PEN 3 = PRINT"z";= PEN 2 = PRINT"' 09 '",=PEN 3 = PRIN 

T"x"i=PEN 2=PRINT"'" 

520 PRINT TftBC6>"SPi 1 ler 2 = PEN 3 = PRINT"«'"; = PEN 2 PRINT"' o9 ' "; = PEN 3 = PRIN 
T">"i PEN 2 PRINT"'" 

53ø PRINT PRINT TAB<6V'z' o9 '<' til venstre." 

54ø PRINT TAB<6);“'x' 09 '>' til h";CHR*(255>="ire." 

550 PRINT = PRINT TflB<6>"Stjernerne 9iver ";=PEN 3 PRINT"3".= PEN 2 = PRINT" Points" 

56ø PRINT TRBf6VHvis man rammer kanten eller" 

570 PRINT TRBC6>"en af slangerne 9iver det" 

58ø PRINT TAB<6)"modstanderen "= =PEN 3=PRINT"lø"; PEN 2 = PRINT" Points" 

590 PRINT PRINT PRINT PEN 1=PRINT TRBC12)"G OD k fl M P ! ' " 

6øø PRINT PRINT PRINT PEN 3=PRINT TAB(15)="Tryk <sPace>" 

610 WHILE INKEYSO" "= MEND = RETURN 
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Luk Rummet 



Dette program til VIC-20 
kræver ingen RAm-udvidel- 
ser. Det er et gammelt spil, og 
mange nikker nok genken¬ 
dende, fordi de har fremstillet 
det engang i en af landets 
sløjdsale. 

Det gælder i korte træk om at 
lukke mm ved hjælp af ter¬ 


ningkast . Jo flere mm man lår 
lukket, desto færre minus¬ 
points får man, og du lever 
længere. 

Programmet husker ''rekor¬ 
den'' som det højst opnåede 
antal slag.n 

Bjarne Malmgren 


VIC 

§ 

20 

1 


9202 PRINT'**1 

9203 PRINT"-] 

9205 GETflt : IFR$*CHR$<133)THENPPINT M ry : RETURN 

9206 IFR*-CHR$<134)THEN8000 

9207 G0T09205 

9500 DRTR20,1,19,20,32,6.32 


løø53 
øø54 PR] 
0055 PE" 
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Debug 


I vort første nummer al' 'Soft'', m 
der udkom til Jul, fik vi besøg i ,]|| ji" Jt 
af nogle sætternisser, der for- 
lystede sig lidt på siderne. JPjjjW f 

Værst gik det ud over Cosmic 'Wm/£± 
Changa, hvor halvdelen af *•/ 
listningen faldt ud. Den kom- 
mer her i fuld længde. c >5a ^ 




skat 


Mange Commodore ejere 
fandt også ud af, at skattepro¬ 
grammet var til en Commo¬ 
dore 64, og ikke til en Spec¬ 
trum, som vort logo angav. 
Til de skuffede Spectrum-folk 
har vi skyndsomt modificeret 
programmet lidt, så at det og¬ 
så kører på en Spectrum. 

■ Hvis du vil køre skattepro¬ 
grammet på en Spectrum 
computer, foretages følgende 
ændringer: 

Først fjernes alle POKE ordrer, 
da de kun styrer farverne på 
skærmen. Tag derpå alle ste¬ 
der, hvor der står print "invers 
hjerter", og skift ordren til CLS 
(clear screen). 

Foran alle variabler sættes 
kommandoen LET. Det gæl¬ 
der også for variabler i f.eks. 
linie 5030, hvor LET skal ind¬ 
føjes efter THEN. 

Alle andre inverse tegn fjer¬ 
nes i de resterende print og in¬ 
put sætninger, da de kun 
bestemmer placeringen på 
skærmen. 

Nu mangler du at finde linier¬ 
ne 4080, 5052. 6052, 7092, 
8043, 9043, 10043, 11043. 
13190. 21020, 22160, 23150. 
24250. 24360 og 25200. 

I disse linier står computeren 
og venter på, at en tast bliver 
trykket. Her skriver du hver 
gang LETA$ = INKEYS. Lav 
bagefter en ny linie neden¬ 
under, hvor du skriver IFA$= 
''' 'THEN (det forrige linjenum¬ 
mer). □ 
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Vigtigt tip 

■ Vi får ofte henvendelser fra 
læsere, der ikke kan tyde de 
inverse tegn på Commodore 
programmer. 

I de fleste tilfælde bruges dis¬ 
se tegn udelukkende til at far¬ 
ve teksten eller printe den 


pænere ud på skærmen. De 
kan derfor ofte undværes, da 
de ikke betyder noget for sel¬ 
ve programmets kørsel. 
Bemærk dog, at tegnene in¬ 
verse hjerter og inverse S skal 
bmges altid. □ 



SI SHH CURSOR NED" 

□ an cursor op* 

a aa a cursor hojre 

II m CURSOR VENSTRE 

■ aaa ctrl i 
^ saa ctrl e 

SI mu CTRL 3 
L tkk. CTRL 4 
9 »Mi CTRL S 
U im CTRL 6 
a 33a CTRL 7 

□ BMW CTRL 8 

a aaa ctrl s 

■ — CTRL O" 

a an commodore i 

k næ COMMODORE s 


B KKH COMMODORE 4 
y an COMMODORE 5 
■I mi COMMODORE 6 
U fin COMMODORE 7 
S! :==! COMMODORE 8 
J an CLR TASTEN 
S Wl HOME TASTEN 
M IBBfl INST TASTEN 
■ mmm F1 

S 1= F3 

M HUK F4 

SI 3BH F6 


o aao COMMODORE 3 


■ aaa fs 
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1 REM ORNEN 

6 CHRISTIAN BØMLER 

2 LET h = C CPEEK 655353*2553 +PEEK 65528 

3 LET tj=ø 

10 INK 0: BORDER 4: PAPER 4: CLS : LET 
P=ø: LET d=0: LET a=15: LET 1=3 

20 POKE USR "o"+7,129: POKE USR "o", 12 
9 

21 POKE USR "o"+5,BIN 01100110 

100 LET a=a+CINKEY* = ‘'8" AND &0293-CINK 
EY*="5" AND a<>03: IF SCREEN* C4,a3="*" 
THEN LET d=l 

101 IF SCREEN* C4, a3 = " / '" THEN LET d=2 

102 POKE 23692,255 

105 PRINT AT 4,a; INK 7j"o" 

106 IF d=l THEN GO TO 1000 

107 IF d=2 THEN LET p=p+10: BEEP .01,5 
0: IF h< P AND tj=0 THEN FOR n=l TO 10: 
BEEP .01,50: NEXT n: LET tj=l 

108 DIN a*C303 

109 LET d=0 

110 LET a*CINT CRND*303+13="*" 

111 LET a*C INT CRND*303+13="*" 

112 LET a*CINT CRND*303+13="*" 

113 LET a*C INT CRND^303 + 13="''" 

200 PRINT AT 21,0;’a* 

3øø GO TO 100 

1000 IF h>p THEN PRINT AT 0,0 ; "Rekor den 
er paa:"jh 

1001 FOR n=l TO 10: PRINT AT 4,a; INK 7; 

"o": BEEP .05,0: PRINT AT 4,a BEEP 

.05,0: NEXT n: PRINT AT 4,a;"o";CHR* 8; 
OUER 1 ;"*" 

1010 LET 1=1-1 


1015 PRINT AT 10,1j"Du har “il;" liv til 
bage " 

1016 PRINT " Du har ";pi” points" 

1017 PRINT FLASH l;"Tryk P aa 0" 

1018 IF lOØ THEN GO TO 1023 

1019 PRINT AT 9,0; FLASH 1;"GAHE OUER": 
PRINT AT 12,0; FLASH 1; BRIGHT l;"tryk p 
aa a for at begynde paa et nyt spi1" 

1020 IF h < P THEN LET h=p : PRINT AT 20,0 
;"Du slog rekorden med ";h;" Points": GO 

SUB 2000 

1021 LET n = INT CRND*203 : BEEP . l,n: BEEP 
.1,n-1: BEEP . l,n: BEEP . 1,-n : BEEP .1, 

-n-1 : BEEP .1,-n: IF PEEK 23560OC0DE “a 
” AND PEEK 23560OCODE "A" THEN GO TO 1 
021: RESTORE : GO TO 1021 

1022 RUN 

1023 BEEP .1,0: BEEP .1,-1: BEEP .1,1: B 
EEP .1,0: BEEP .1,-1: BEEP .1,-2 

1024 IF PEEK 23560OCODE "0" THEN GO TO 
1023 

1040 FOR n=l TO 10: BEEP .1,-10: BEEP .1 

,10: NEXT n 

1050 CLS 

1055 LET d=0 

1060 GO TO 100 


2000 LET k =ø 
2005 LET o=p 

2010 IF o>255 THEN LET o=o-255: LET k=k 
+1: GO TO 2010 

2020 POKE 65535,k: POKE 65528,o 
2030 GO TO 1021 
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>e«, hvordan 
.egget lyder 


,afiske 

/ ci' - kan vise 
iyd på en TV- 
.vun fungere som spek- 
i/zer. forvandle lyd til grafik 
eller udskrive noder efter den musik. 
der bliver spillet. 

Byg en aktiv subwooler med fornem¬ 
me data. Konstruktionen rummer en 
10" Vifa bas og en 75 watt Hi-Fi for¬ 
stærker med Dual Drive. Subwoofe- 
en kan bygges for ca. 1000 kroner. 

Sansui har bygget en ai markedets 
mest avancerede kassettebåndop¬ 
tagere. D-W10 har to indbyggede 
decks og et opbud af computerstyre¬ 
de finesser, som vi aldrig har set ma¬ 
ge til. Læs testen i det nye nummer af 
»ny elektronik«. 

AM Kemi er bedst kendt for sin kos¬ 



metik til plader. Nu kommer rense- 
specialisterne fra Kokkedal også 
med egne hovedtelefoner. Kan de 
mon klare sig i konkurrencen? 

»ny elektronik« går tæt på to Hi-Fi for¬ 
stærkere med hver sin filosofi Philips 
og Rotel. 

Masser al spændende byg-selv arti¬ 
kler Professionel audioattenuator - 
computer modem - defroster-ur. 

Grundig oversigt: Alt, hvad du bør vi¬ 
de om transistorer. 

Optiske computere er stadig 
science-fiction. Men. hvor længe? 
Læs den spændende reportage. 

Køb »ny elektronik« nummer 3 hos 
din bladhandler 1 dag. Pris kr. 
21,85. 


Alt om 

DflTR 

TQfitøA “DOS 


Markedets bedste hurtig-loader til Commodore 64 
og 1541 diskstation. Rummer en stribe finesser, der 
gør arbejdet med en 64’er meget nemmere. 


r*å modul koster TornaDOS kun kr. 345.- ‘—f 


r Loader programmer 7 gange hurtigere, 
r Helt nyt DOS operativsystem, 
r Nye og nemmere diskkommandoer, bl.a. OLD. 
r Indbygget resetknap til Commodore 64. 
r Markering af resterende RAM-plads. 
r Fri definering af funktionstasterne til 
specielle opgaver. 


TornaDOS fas kun hos »Alt om Data< 

St. Kongensgade 72,1264 København K, tlf.: 01 -11 28 33 


ni 

rn 














Sjove tricks ta am 


Air om 

Mifcrodata 85 

ssa«" 


Vikarer 

årets computer lV 

femSduI^^'eren 

Sealledenfesuperepjj 

Se den nye ^ 
lonunodore 128 


Køb det nye nummer af 
Alt om Data i kiosken. 
Kun kr. 21,85 


Du kan også tegne abonnement på 
11 numre for kr. 218,50 på telefon 
01-11 28 33. 









